ouroboros-consensus:unstable-consensus-testlib
Safe HaskellNone
LanguageHaskell2010

Test.Util.Header

Synopsis

Enriching headers with a relative slot time

attachSlotTime Source #

Arguments

∷ (ImmutableEraParams blk, BlockSupportsProtocol blk, LedgerView (BlockProtocol blk) ~ ()) 
⇒ TopLevelConfig blk 
→ WithOrigin SlotNo

The slot of the header's predecessor

→ Header blk 
→ HeaderWithTime blk 

For a block whose ledger view is trivial, and so is the same at every slot

attachSlotTimeToFragment ∷ (ImmutableEraParams blk, BlockSupportsProtocol blk, LedgerView (BlockProtocol blk) ~ ()) ⇒ TopLevelConfig blk → AnchoredFragment (Header blk) → AnchoredFragment (HeaderWithTime blk) Source #

dropTimeFromFragment ∷ HasHeader (Header blk) ⇒ AnchoredFragment (HeaderWithTime blk) → AnchoredFragment (Header blk) Source #