Do not close resources when interrupting initialization

Author: jasagredo

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

@@ -90,7 +90,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

ouroboros-consensus/test/storage-test/Test/Ouroboros/Storage/LedgerDB/StateMachine.hs

@@ -611,7 +611,6 @@ instance RunModel Model (StateT Environment IO) where
     Environment _ _ chainDb mkArgs fs _ cleanup rr <- get
     (ldb, testInternals, getNumOpenHandles) <- lift $ do
       let args = mkArgs secParam salt
-      -- TODO after a drop and restore we restart the db but the session has been closed below where I wrote blahblahblah
       openLedgerDB (argFlavorArgs args) chainDb (argLedgerDbCfg args) fs rr
     put (Environment ldb testInternals chainDb mkArgs fs getNumOpenHandles cleanup rr)
     pure $ pure ()
@@ -648,7 +647,6 @@ instance RunModel Model (StateT Environment IO) where
     Environment _ testInternals chainDb _ _ _ _ _ <- get
     lift $ do
       atomically $ modifyTVar (dbChain chainDb) (drop (fromIntegral n))
-      -- blahblahblah
       closeLedgerDB testInternals
     perform state (Init secParam salt) lk
   perform _ OpenAndCloseForker _ = do