Fix gov_action state changes

Author: kderme

cardano-db-sync/src/Cardano/DbSync/Rollback.hs

@@ -54,6 +54,8 @@ rollbackFromBlockNo syncEnv blkNo = do
       DB.deleteEpochRows epochNo
       DB.setNullEnacted epochNo
       DB.setNullRatified epochNo
+      DB.setNullDropped epochNo
+      DB.setNullExpired epochNo
       when (deletedBlockCount > 0) $ do
         -- We use custom constraints to improve input speeds when syncing.
         -- If they don't already exists we add them here as once a rollback has happened

cardano-db/src/Cardano/Db/Insert.hs

@@ -71,6 +71,8 @@ module Cardano.Db.Insert (
   updateGovActionExpired,
   setNullEnacted,
   setNullRatified,
+  setNullExpired,
+  setNullDropped,
   replaceAdaPots,
   insertAnchor,
   insertConstitution,
@@ -397,6 +399,14 @@ setNullRatified :: MonadIO m => Word64 -> ReaderT SqlBackend m ()
 setNullRatified eNo =
   updateWhere [GovActionProposalRatifiedEpoch !=. Nothing, GovActionProposalRatifiedEpoch >. Just eNo] [GovActionProposalRatifiedEpoch =. Nothing]
 
+setNullExpired :: MonadIO m => Word64 -> ReaderT SqlBackend m ()
+setNullExpired eNo =
+  updateWhere [GovActionProposalExpiredEpoch !=. Nothing, GovActionProposalExpiredEpoch >. Just eNo] [GovActionProposalExpiredEpoch =. Nothing]
+
+setNullDropped :: MonadIO m => Word64 -> ReaderT SqlBackend m ()
+setNullDropped eNo =
+  updateWhere [GovActionProposalDroppedEpoch !=. Nothing, GovActionProposalDroppedEpoch >. Just eNo] [GovActionProposalDroppedEpoch =. Nothing]
+
 replaceAdaPots :: (MonadBaseControl IO m, MonadIO m) => BlockId -> AdaPots -> ReaderT SqlBackend m Bool
 replaceAdaPots blockId adapots = do
   mAdaPotsId <- queryAdaPotsId blockId

cardano-db/src/Cardano/Db/Schema.hs

@@ -904,6 +904,7 @@ schemaDocs =
       PoolUpdateMetaId # "The PoolMetadataRef table index this pool update refers to."
       PoolUpdateMargin # "The margin (as a percentage) this pool charges."
       PoolUpdateFixedCost # "The fixed per epoch fee (in ADA) this pool charges."
+      PoolUpdateDeposit # "The deposit payed for this pool update. Null for reregistrations."
       PoolUpdateRegisteredTxId # "The Tx table index of the transaction in which provided this pool update."
 
     PoolOwner --^ do
@@ -1277,8 +1278,7 @@ schemaDocs =
 
     GovActionProposal --^ do
       "A table for proposed GovActionProposal, aka ProposalProcedure, GovAction or GovProposal.\
-      \ At most one of the ratified/enacted/dropped/expired\
-      \ epoch field can be non-null, indicating the current state of the proposal. This table may be referenced\
+      \ This table may be referenced\
       \ by TreasuryWithdrawal or NewCommittee. New in 13.2-Conway."
       GovActionProposalTxId # "The Tx table index of the tx that includes this certificate."
       GovActionProposalIndex # "The index of this proposal procedure within its transaction."