diff --git a/ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/HardFork/Combinator/Serialisation/SerialiseNodeToClient.hs b/ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/HardFork/Combinator/Serialisation/SerialiseNodeToClient.hs
index 29de560ca0..4800c51c27 100644
--- a/ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/HardFork/Combinator/Serialisation/SerialiseNodeToClient.hs
+++ b/ouroboros-consensus/src/ouroboros-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/ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/HardFork/History/EraParams.hs b/ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/HardFork/History/EraParams.hs
index 9e160d5e96..7111d85692 100644
--- a/ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/HardFork/History/EraParams.hs
+++ b/ouroboros-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