Do not close resources when interrupting initialization

jasagredo · jasagredo · commit aa11c47026a9 · 2025-09-02T12:11:03.000+02:00
diff --git a/ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/Storage/LedgerDB/V2.hs b/ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/Storage/LedgerDB/V2.hs
@@ -89,7 +89,6 @@ mkInitDb args getBlock snapManager res = do
             res
     , abortLedgerDbInit = \ls -> do
         closeLedgerSeq ls
-        releaseResources (Proxy @blk) res
     , initReapplyBlock = \a b c -> do
         (x, y) <- reapplyThenPush lgrRegistry a b c
         x

Original file line number	Diff line number	Diff line change
`@@ -89,7 +89,6 @@ mkInitDb args getBlock snapManager res = do`
`89`	`89`	`res`
`90`	`90`	`, abortLedgerDbInit = \ls -> do`
`91`	`91`	`closeLedgerSeq ls`
`92`		`- releaseResources (Proxy @blk) res`
`93`	`92`	`, initReapplyBlock = \a b c -> do`
`94`	`93`	`(x, y) <- reapplyThenPush lgrRegistry a b c`
`95`	`94`	`x`