Safe Haskell | Safe-Inferred |
---|---|
Language | Haskell2010 |
Helpers for tracing used by the peer simulator.
Synopsis
- data TraceBlockFetchClientTerminationEvent
- data TraceChainSyncClientTerminationEvent
- data TraceEvent blk
- = TraceSchedulerEvent (TraceSchedulerEvent blk)
- | TraceScheduledChainSyncServerEvent PeerId (TraceScheduledChainSyncServerEvent (NodeState blk) blk)
- | TraceScheduledBlockFetchServerEvent PeerId (TraceScheduledBlockFetchServerEvent (NodeState blk) blk)
- | TraceChainDBEvent (TraceEvent blk)
- | TraceChainSyncClientEvent PeerId (TraceChainSyncClientEvent blk)
- | TraceChainSyncClientTerminationEvent PeerId TraceChainSyncClientTerminationEvent
- | TraceBlockFetchClientTerminationEvent PeerId TraceBlockFetchClientTerminationEvent
- | TraceGenesisDDEvent (TraceGDDEvent PeerId blk)
- | TraceOther String
- data TraceScheduledBlockFetchServerEvent state blk
- = TraceHandlerEventBF (TraceScheduledServerHandlerEvent state blk)
- | TraceNoBlocks
- | TraceStartingBatch (AnchoredFragment blk)
- | TraceWaitingForRange (Point blk) (Point blk)
- | TraceSendingBlock blk
- | TraceBatchIsDone
- | TraceBlockPointIsBehind
- data TraceScheduledChainSyncServerEvent state blk
- = TraceHandlerEventCS (TraceScheduledServerHandlerEvent state blk)
- | TraceLastIntersection (Point blk)
- | TraceClientIsDone
- | TraceIntersectionFound (Point blk)
- | TraceIntersectionNotFound
- | TraceRollForward (Header blk) (Tip blk)
- | TraceRollBackward (Point blk) (Tip blk)
- | TraceChainIsFullyServed
- | TraceIntersectionIsHeaderPoint
- | TraceIntersectionIsStrictAncestorOfHeaderPoint (AnchoredFragment blk)
- | TraceIntersectionIsStrictDescendentOfHeaderPoint
- data TraceScheduledServerHandlerEvent state blk
- = TraceHandling HandlerName state
- | TraceRestarting HandlerName
- | TraceDoneHandling HandlerName
- data TraceSchedulerEvent blk
- = TraceBeginningOfTime
- | TraceEndOfTime
- | TraceExtraDelay DiffTime
- | ∀ m. TraceNewTick Int DiffTime (Peer (NodeState blk)) (AnchoredFragment (Header blk)) (Maybe (AnchoredFragment (Header blk))) [(PeerId, ChainSyncJumpingState m blk)]
- | TraceNodeShutdownStart (WithOrigin SlotNo)
- | TraceNodeShutdownComplete
- | TraceNodeStartupStart
- | TraceNodeStartupComplete (AnchoredFragment (Header blk))
- mkGDDTracerTestBlock ∷ Tracer m (TraceEvent TestBlock) → Tracer m (TraceGDDEvent PeerId TestBlock)
- prettyDensityBounds ∷ [(PeerId, DensityBounds TestBlock)] → [String]
- traceLinesWith ∷ Tracer m String → [String] → m ()
- tracerTestBlock ∷ IOLike m ⇒ Tracer m String → m (Tracer m (TraceEvent TestBlock))
Documentation
data TraceEvent blk Source #
data TraceScheduledBlockFetchServerEvent state blk Source #
data TraceScheduledChainSyncServerEvent state blk Source #
data TraceScheduledServerHandlerEvent state blk Source #
TraceHandling HandlerName state | |
TraceRestarting HandlerName | |
TraceDoneHandling HandlerName |
data TraceSchedulerEvent blk Source #
Trace messages sent by the scheduler.
TraceBeginningOfTime | Right before running the first tick (at time |
TraceEndOfTime | Right after running the last tick of the schedule. |
TraceExtraDelay DiffTime | An extra optional delay to keep the simulation running |
∀ m. TraceNewTick Int DiffTime (Peer (NodeState blk)) (AnchoredFragment (Header blk)) (Maybe (AnchoredFragment (Header blk))) [(PeerId, ChainSyncJumpingState m blk)] | When beginning a new tick. Contains the tick number (counting from
|
TraceNodeShutdownStart (WithOrigin SlotNo) | |
TraceNodeShutdownComplete | |
TraceNodeStartupStart | |
TraceNodeStartupComplete (AnchoredFragment (Header blk)) |
mkGDDTracerTestBlock ∷ Tracer m (TraceEvent TestBlock) → Tracer m (TraceGDDEvent PeerId TestBlock) Source #
prettyDensityBounds ∷ [(PeerId, DensityBounds TestBlock)] → [String] Source #
tracerTestBlock ∷ IOLike m ⇒ Tracer m String → m (Tracer m (TraceEvent TestBlock)) Source #