Enforce the right size on Shelley Ledger Config cbor instance

IntersectMBO · Mar 4, 2025 · d571eb3 · d571eb3
1 parent 2834a42
commit d571eb3
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/ouroboros-consensus-cardano/src/shelley/Ouroboros/Consensus/Shelley/Node/Serialisation.hs b/ouroboros-consensus-cardano/src/shelley/Ouroboros/Consensus/Shelley/Node/Serialisation.hs
@@ -214,7 +214,7 @@ instance (NoHardForks (ShelleyBlock proto era), ShelleyCompatible proto era)
 instance ShelleyBasedEra era
       => SerialiseNodeToClient (ShelleyBlock proto era) (ShelleyPartialLedgerConfig era) where
   decodeNodeToClient ccfg version = do
-    enforceSize "ShelleyPartialLedgerConfig era" 14
+    enforceSize "ShelleyPartialLedgerConfig era" 13
     ShelleyPartialLedgerConfig
       <$> ( ShelleyLedgerConfig
         <$> fromCBOR @CompactGenesis
@@ -256,7 +256,7 @@ instance ShelleyBasedEra era
       )
       triggerHardFork
     )
-      = encodeListLen 14
+      = encodeListLen 13
         <> toCBOR @CompactGenesis myCompactGenesis
         <> toCBOR @Word64 slotsPerKESPeriod'
         <> toCBOR @Word64 stabilityWindow'