Prune old checkpoints as opposed to new checkpoints.

cardano-foundation · Jun 15, 2023 · 85392f0 · 85392f0
1 parent 6e32039
commit 85392f0
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/wallet/src/Cardano/Wallet/Checkpoints.hs b/lib/wallet/src/Cardano/Wallet/Checkpoints.hs
@@ -182,11 +182,11 @@ extendAndPrune
         -- ^ Current checkpoints.
     -> DeltasCheckpoints a
 extendAndPrune getSlot getHeight policy nodeTip xs (Checkpoints cps) =
-    prunes ++ additions
+    additions <> pruneOld
   where
     additions = reverse -- latest slot needs to be applied last
         [ PutCheckpoint (getSlot x) x | x <- new ]
-    prunes = [ RestrictTo $ map getSlot (old ++ new) ]
+    pruneOld = [ RestrictTo $ map getSlot old ]
 
     new = filter willKeep (NE.toList xs)
     old = filter willKeep (Map.elems cps)