Update LSM

Author: jasagredo

cabal.project

@@ -118,7 +118,7 @@ source-repository-package
 source-repository-package
   type: git
   location: https://github.com/jasagredo/lsm-tree
-  tag: 2491d82e325be54dfa3525175f3382b56404404c
+  tag: 0fe8b227b78a78503d0201755d50435635da5a22
   subdir:
     .
     blockio

ouroboros-consensus-cardano/src/byron/Ouroboros/Consensus/Byron/Node.hs

@@ -36,7 +36,7 @@ import Control.Monad (guard)
 import Data.Coerce (coerce)
 import Data.Maybe
 import Data.Text (Text)
-import Data.Void (Void, absurd)
+import Data.Void (Void)
 import Ouroboros.Consensus.Block
 import Ouroboros.Consensus.BlockchainTime (SystemStart (..))
 import Ouroboros.Consensus.Byron.Crypto.DSIGN
@@ -61,18 +61,11 @@ import Ouroboros.Consensus.Storage.ChainDB.Init (InitChainDB (..))
 import Ouroboros.Consensus.Storage.ImmutableDB (simpleChunkInfo)
 import Ouroboros.Consensus.Util ((....:))
 import Ouroboros.Network.Magic (NetworkMagic (..))
-import qualified Database.LSMTree as LSM
 
 {-------------------------------------------------------------------------------
   Credentials
 -------------------------------------------------------------------------------}
 
-instance LSM.SerialiseKey Void where
-  serialiseKey = absurd
-  deserialiseKey = error "deserialiseKey: Void"
-
-deriving via LSM.ResolveAsFirst Void instance LSM.ResolveValue Void
-
 -- | Credentials needed to produce blocks in the Byron era.
 data ByronLeaderCredentials = ByronLeaderCredentials
   { blcSignKey :: Crypto.SigningKey

ouroboros-consensus-cardano/src/shelley/Ouroboros/Consensus/Shelley/Ledger/Ledger.hs

@@ -101,10 +101,8 @@ import qualified Control.State.Transition.Extended as STS
 import Data.Coerce (coerce)
 import Data.Functor.Identity
 import Data.MemPack
-import Data.Primitive.ByteArray as PBA
 import qualified Data.Text as T
 import qualified Data.Text as Text
-import Data.Vector.Primitive (Vector (..))
 import Data.Word
 import qualified Database.LSMTree as LSM
 import GHC.Generics (Generic)

ouroboros-consensus-diffusion/src/ouroboros-consensus-diffusion/Ouroboros/Consensus/Node.hs

@@ -128,7 +128,6 @@ import Ouroboros.Consensus.Storage.LedgerDB.Args
 import Ouroboros.Consensus.Storage.LedgerDB.Snapshots
 import Ouroboros.Consensus.Util.Args
 import Ouroboros.Consensus.Util.IOLike
-import System.FS.BlockIO.API
 import System.FS.BlockIO.IO
 import Ouroboros.Consensus.Util.Orphans ()
 import Ouroboros.Consensus.Util.Time (secondsToNominalDiffTime)

ouroboros-consensus/ouroboros-consensus.cabal

@@ -303,7 +303,6 @@ library
     bimap >=0.4 && <0.6,
     binary >=0.8 && <0.11,
     bytestring >=0.10 && <0.13,
-    random,
     cardano-binary,
     cardano-crypto-class,
     cardano-ledger-core ^>=1.18,

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

@@ -40,10 +40,6 @@ import Ouroboros.Consensus.Util.Args
 import Ouroboros.Consensus.Util.CallStack
 import Ouroboros.Consensus.Util.IOLike
 import System.FS.API
-import System.FS.BlockIO.API
-import System.FS.BlockIO.IO
-import System.FS.IO
-import System.Random
 
 openDB ::
   forall m blk.