diff --git a/ouroboros-consensus-cardano/src/byron/Ouroboros/Consensus/Byron/Ledger/Ledger.hs b/ouroboros-consensus-cardano/src/byron/Ouroboros/Consensus/Byron/Ledger/Ledger.hs index 2afd133316..7fca9a6761 100644 --- a/ouroboros-consensus-cardano/src/byron/Ouroboros/Consensus/Byron/Ledger/Ledger.hs +++ b/ouroboros-consensus-cardano/src/byron/Ouroboros/Consensus/Byron/Ledger/Ledger.hs @@ -162,7 +162,8 @@ getByronTip state = -- | The ticked Byron ledger state data instance Ticked (LedgerState ByronBlock) = TickedByronLedgerState { - tickedByronLedgerState :: !CC.ChainValidationState + untickedByronLedgerTipBlockNo :: !(WithOrigin BlockNo) + , tickedByronLedgerState :: !CC.ChainValidationState , untickedByronLedgerTransition :: !ByronTransition } deriving (Generic, NoThunks) @@ -175,7 +176,8 @@ instance IsLedger (LedgerState ByronBlock) where applyChainTickLedgerResult cfg slotNo ByronLedgerState{..} = pureLedgerResult $ TickedByronLedgerState { - tickedByronLedgerState = + untickedByronLedgerTipBlockNo = byronLedgerTipBlockNo + , tickedByronLedgerState = CC.applyChainTick cfg (toByronSlotNo slotNo) byronLedgerState , untickedByronLedgerTransition = byronLedgerTransition