Fix DrepDistr rollback

Fixes https://github.com/orgs/IntersectMBO/projects/8/views/5?pane=issue&itemId=62600108:

Author: kderme

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

@@ -52,6 +52,7 @@ rollbackFromBlockNo syncEnv blkNo = do
       whenConsumeOrPruneTxOut syncEnv $
         DB.setNullTxOut trce mTxId
       DB.deleteEpochRows epochNo
+      DB.deleteDrepDistr epochNo
       DB.setNullEnacted epochNo
       DB.setNullRatified epochNo
       DB.setNullDropped epochNo

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

@@ -14,6 +14,7 @@ module Cardano.Db.Delete (
   deleteBlocksBlockIdNotrace,
   deleteBlock,
   deleteEpochRows,
+  deleteDrepDistr,
   deleteAdaPots,
   deleteTxOut,
   -- for testing
@@ -45,6 +46,7 @@ import Database.Persist.Sql (
   selectKeysList,
   (==.),
   (>=.),
+  (>.),
  )
 
 deleteBlocksSlotNoNoTrace :: MonadIO m => SlotNo -> ReaderT SqlBackend m Bool
@@ -220,6 +222,10 @@ deleteEpochRows :: MonadIO m => Word64 -> ReaderT SqlBackend m ()
 deleteEpochRows epochNum =
   deleteWhere [EpochNo >=. epochNum]
 
+deleteDrepDistr :: MonadIO m => Word64 -> ReaderT SqlBackend m ()
+deleteDrepDistr epochNum =
+  deleteWhere [DrepDistrEpochNo >. epochNum]
+
 deleteAdaPots :: MonadIO m => BlockId -> ReaderT SqlBackend m ()
 deleteAdaPots blkId = do
   deleteWhere [AdaPotsBlockId ==. blkId]