Update consensus ref

cabal.project

@@ -14,7 +14,7 @@ repository cardano-haskell-packages
 -- you need to run if you change them
 index-state:
   , hackage.haskell.org 2025-04-08T10:52:25Z
-  , cardano-haskell-packages 2025-04-16T15:55:07Z
+  , cardano-haskell-packages 2025-04-22T08:40:01Z
 
 packages:
     cardano-api
@@ -64,3 +64,4 @@ if impl (ghc >= 9.12)
 
     -- https://github.com/kapralVV/Unique/issues/11
     , Unique:hashable
+

cardano-api/cardano-api.cabal

@@ -155,10 +155,10 @@ library
     network-mux,
     nothunks,
     ordered-containers,
-    ouroboros-consensus ^>=0.25,
-    ouroboros-consensus-cardano ^>=0.24,
+    ouroboros-consensus ^>=0.26,
+    ouroboros-consensus-cardano ^>=0.25,
     ouroboros-consensus-diffusion ^>=0.22,
-    ouroboros-consensus-protocol ^>=0.11,
+    ouroboros-consensus-protocol ^>=0.12,
     ouroboros-network,
     ouroboros-network-api >=0.13,
     ouroboros-network-framework,

cardano-api/src/Cardano/Api/Internal/LedgerState.hs

@@ -1353,13 +1353,13 @@ pattern ConwayLedgerState
 pattern ConwayLedgerState x = S (S (S (S (S (S (Z x))))))
 
 encodeLedgerState :: LedgerState -> CBOR.Encoding
-encodeLedgerState (LedgerState (HFC.HardForkLedgerState st) tbs) =
+encodeLedgerState (LedgerState hst@(HFC.HardForkLedgerState st) tbs) =
   mconcat
     [ CBOR.encodeListLen 2
     , HFC.encodeTelescope
         (byron :* shelley :* allegra :* mary :* alonzo :* babbage :* conway :* Nil)
         st
-    , Ledger.valuesMKEncoder tbs
+    , Ledger.valuesMKEncoder hst tbs
     ]
  where
   byron = fn (K . Byron.encodeByronLedgerState . unFlip)
@@ -1373,9 +1373,11 @@ encodeLedgerState (LedgerState (HFC.HardForkLedgerState st) tbs) =
 decodeLedgerState :: forall s. CBOR.Decoder s LedgerState
 decodeLedgerState = do
   2 <- CBOR.decodeListLen
-  LedgerState . HFC.HardForkLedgerState
-    <$> HFC.decodeTelescope (byron :* shelley :* allegra :* mary :* alonzo :* babbage :* conway :* Nil)
-    <*> Ledger.valuesMKDecoder
+  hst <-
+    HFC.HardForkLedgerState
+      <$> HFC.decodeTelescope (byron :* shelley :* allegra :* mary :* alonzo :* babbage :* conway :* Nil)
+  tbs <- Ledger.valuesMKDecoder hst
+  pure (LedgerState hst tbs)
  where
   byron = Comp $ Flip <$> Byron.decodeByronLedgerState
   shelley = Comp $ Flip <$> Shelley.decodeShelleyLedgerState