Remove retirement certificates during database rollback.

cardano-foundation · Jul 7, 2020 · f3c9ec3 · f3c9ec3
1 parent 7045dc2
commit f3c9ec3
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/lib/core/src/Cardano/Pool/DB/Sqlite.hs b/lib/core/src/Cardano/Pool/DB/Sqlite.hs
@@ -379,6 +379,7 @@ newDBLayer trace fp = do
             deleteWhere [ PoolProductionSlot >. point ]
             deleteWhere [ StakeDistributionEpoch >. fromIntegral epoch ]
             deleteWhere [ PoolRegistrationSlot >. point ]
+            deleteWhere [ PoolRetirementSlot >. point ]
             -- TODO: remove dangling metadata no longer attached to a pool
 
         , readPoolProductionCursor = \k -> do