Undo HEAD~1

Author: jasagredo

ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/Storage/LedgerDB/V2/LSM.hs

@@ -76,7 +76,6 @@ import Data.Void
 import Database.LSMTree (Session, Table)
 import qualified Database.LSMTree as LSM
 import qualified Database.LSMTree.Internal.Types as LSM
--- import qualified Debug.Trace as Debug
 import GHC.Generics
 import NoThunks.Class
 import Ouroboros.Consensus.Block
@@ -226,9 +225,7 @@ newLSMLedgerTablesHandle tracer rr session (resKey, t0) = do
       , pushDiffs = const (implPushDiffs tv)
       , takeHandleSnapshot = \_ snapshotName -> guardClosed tv $
           \table -> do
-            exists <- LSM.doesSnapshotExist session (fromString snapshotName)
-            -- Debug.traceShowM =<< LSM.listSnapshots session
-            Monad.when (not exists) $ LSM.saveSnapshot (fromString snapshotName) "UTxO table" table
+            LSM.saveSnapshot (fromString snapshotName) "UTxO table" table
             pure Nothing
       , tablesSize = pure Nothing
       }