Track the allocated forker

Author: jasagredo

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

@@ -844,8 +844,8 @@ newForker ::
   DbChangelog l ->
   ReadLocked m (Forker m l blk)
 newForker h ldbEnv (rk, releaseVar) rr dblog =
-  readLocked $
-    fmap snd $
+  readLocked $ do
+    (rk', frk) <-
       allocate
         rr
         ( \_ -> do
@@ -874,6 +874,7 @@ newForker h ldbEnv (rk, releaseVar) rr dblog =
             pure $ (mkForker h (ldbQueryBatchSize ldbEnv) forkerKey forkerEnv)
         )
         forkerClose
+    pure $ frk{forkerClose = void $ release rk'}
 
 mkForker ::
   ( IOLike m