WIP

Author: jasagredo

ouroboros-consensus-cardano/app/snapshot-converter.hs

@@ -279,8 +279,8 @@ store config ccfg (state, tbs) tempFS =
         (_, SomeHasFSAndBlockIO hasFS blockIO) <- LSM.stdMkBlockIOFS dbPath reg
         salt <- LSM.stdGenSalt
         LSM.withNewSession nullTracer hasFS blockIO salt (mkFsPath [""]) $ \session -> do
-          lsmTable <- LSM.tableFromValuesMK reg session tbs
-          lsmHandle <- LSM.newLSMLedgerTablesHandle nullTracer reg session lsmTable
+          lsmTable <- LSM.tableFromValuesMK reg session state tbs
+          lsmHandle <- LSM.newLSMLedgerTablesHandle nullTracer reg lsmTable
           Monad.void $
             LSM.implTakeSnapshot
               ccfg

ouroboros-consensus-cardano/ouroboros-consensus-cardano.cabal

@@ -156,6 +156,7 @@ library
     cardano-ledger-dijkstra ^>=0.1,
     cardano-ledger-mary ^>=1.9,
     temporary,
+    resource-registry,
     cardano-ledger-shelley ^>=1.17,
     cardano-prelude,
     cardano-protocol-tpraos ^>=1.4.1,