WIP

IntersectMBO · Feb 18, 2025 · 0ab9401 · 0ab9401
1 parent ec105fa
commit 0ab9401
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 7 deletions.
diff --git a/...-consensus/Ouroboros/Consensus/HardFork/Combinator/Serialisation/SerialiseNodeToClient.hs b/...-consensus/Ouroboros/Consensus/HardFork/Combinator/Serialisation/SerialiseNodeToClient.hs
@@ -191,13 +191,13 @@ instance SerialiseHFC xs => SerialiseNodeToClient (HardForkBlock xs) (HardForkLe
 instance SerialiseHFC xs => SerialiseNodeToClient (HardForkBlock xs) (History.Shape xs) where
   encodeNodeToClient ccfg version (History.Shape (Exactly xs)) =
     encodeNodeToClientNP
-        (\ccfg' version' (K a) -> encodeNodeToClient ccfg' version' a)
+        (\_ _ (K a) -> Serialise.encode a)
         ccfg
         version
         xs
   decodeNodeToClient ccfg version =
     History.Shape . Exactly <$> decodeNodeToClientNP
-        (\ccfg' version' -> K <$> decodeNodeToClient ccfg' version')
+        (\_ _ -> K <$> Serialise.decode)
         ccfg
         version
 

diff --git a/...boros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/HardFork/History/EraParams.hs b/...boros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/HardFork/History/EraParams.hs
@@ -30,7 +30,7 @@ import           NoThunks.Class (NoThunks)
 import           Ouroboros.Consensus.Block
 import           Ouroboros.Consensus.BlockchainTime.WallClock.Types
 import           Ouroboros.Consensus.Config.SecurityParam
-import           Ouroboros.Consensus.Node.Serialisation
+--import           Ouroboros.Consensus.Node.Serialisation
 
 {-------------------------------------------------------------------------------
   OVERVIEW
@@ -249,7 +249,3 @@ instance Serialise EraParams where
       eraSafeZone   <- decode
       eraGenesisWin <- GenesisWindow <$> decode
       return EraParams{..}
-
-instance SerialiseNodeToClient blk EraParams where
-  encodeNodeToClient _ _ = encode
-  decodeNodeToClient _ _ = decode