Safe Haskell	Safe-Inferred
Language	Haskell2010

Cardano.Tracing.Tracers

Contents

Orphan instances

Synopsis

data Tracers peer localPeer blk p2p = Tracers {
- chainDBTracer :: !(Tracer IO (TraceEvent blk))
- consensusTracers :: !(Tracers IO peer localPeer blk)
- nodeToNodeTracers :: !(Tracers IO peer blk DeserialiseFailure)
- nodeToClientTracers :: !(Tracers IO localPeer blk DeserialiseFailure)
- diffusionTracers :: !(Tracers RemoteAddress NodeToNodeVersion LocalAddress NodeToClientVersion IO)
- diffusionTracersExtra :: !(ExtraTracers p2p)
- startupTracer :: !(Tracer IO (StartupTrace blk))
- shutdownTracer :: !(Tracer IO ShutdownTrace)
- nodeInfoTracer :: !(Tracer IO NodeInfo)
- nodeStartupInfoTracer :: !(Tracer IO NodeStartupInfo)
- nodeStateTracer :: !(Tracer IO NodeState)
- resourcesTracer :: !(Tracer IO ResourceStats)
- peersTracer :: !(Tracer IO [PeerT blk])
}
data TraceOptions
mkTracers :: forall blk p2p. (RunNode blk, TraceConstraints blk) => BlockConfig blk -> TraceOptions -> Trace IO Text -> NodeKernelData blk -> Maybe EKGDirect -> NetworkP2PMode p2p -> IO (Tracers (ConnectionId RemoteAddress) (ConnectionId LocalAddress) blk p2p)
nullTracersP2P :: Tracers peer localPeer blk 'P2P
nullTracersNonP2P :: Tracers peer localPeer blk 'NonP2P
traceCounter :: Text -> Trace IO Text -> Int -> IO ()

Documentation

data Tracers peer localPeer blk p2p Source #

Constructors

Tracers

Fields

chainDBTracer :: !(Tracer IO (TraceEvent blk))
Trace the ChainDB
consensusTracers :: !(Tracers IO peer localPeer blk)
Consensus-specific tracers.
nodeToNodeTracers :: !(Tracers IO peer blk DeserialiseFailure)
Tracers for the node-to-node protocols.
nodeToClientTracers :: !(Tracers IO localPeer blk DeserialiseFailure)
Tracers for the node-to-client protocols
diffusionTracers :: !(Tracers RemoteAddress NodeToNodeVersion LocalAddress NodeToClientVersion IO)
Diffusion tracers
diffusionTracersExtra :: !(ExtraTracers p2p)
startupTracer :: !(Tracer IO (StartupTrace blk))
shutdownTracer :: !(Tracer IO ShutdownTrace)
nodeInfoTracer :: !(Tracer IO NodeInfo)
nodeStartupInfoTracer :: !(Tracer IO NodeStartupInfo)
nodeStateTracer :: !(Tracer IO NodeState)
resourcesTracer :: !(Tracer IO ResourceStats)
peersTracer :: !(Tracer IO [PeerT blk])

data TraceOptions Source #

Instances

Instances details

Show TraceOptions Source #
Instance details Defined in Cardano.Tracing.Config Methods showsPrec :: Int -> TraceOptions -> ShowS Source # show :: TraceOptions -> String Source # showList :: [TraceOptions] -> ShowS Source #
Eq TraceOptions Source #
Instance details Defined in Cardano.Tracing.Config Methods (==) :: TraceOptions -> TraceOptions -> Bool Source # (/=) :: TraceOptions -> TraceOptions -> Bool Source #

mkTracers :: forall blk p2p. (RunNode blk, TraceConstraints blk) => BlockConfig blk -> TraceOptions -> Trace IO Text -> NodeKernelData blk -> Maybe EKGDirect -> NetworkP2PMode p2p -> IO (Tracers (ConnectionId RemoteAddress) (ConnectionId LocalAddress) blk p2p) Source #

Tracers for all system components.

nullTracersP2P :: Tracers peer localPeer blk 'P2P Source #

nullTracersNonP2P :: Tracers peer localPeer blk 'NonP2P Source #

traceCounter :: Text -> Trace IO Text -> Int -> IO () Source #

Orphan instances

Show a => Show (WithSeverity a) Source #
Instance details Methods showsPrec :: Int -> WithSeverity a -> ShowS Source # show :: WithSeverity a -> String Source # showList :: [WithSeverity a] -> ShowS Source #
ElidingTracer (WithSeverity (TraceEvent blk)) Source #
Instance details Methods doelide :: WithSeverity (TraceEvent blk) -> Bool isEquivalent :: WithSeverity (TraceEvent blk) -> WithSeverity (TraceEvent blk) -> Bool newstate :: IO (MVar (Maybe (WithSeverity (TraceEvent blk)), Integer)) starteliding :: (ToObject t, Transformable t IO (WithSeverity (TraceEvent blk))) => TracingVerbosity -> Trace IO t -> WithSeverity (TraceEvent blk) -> IO (Maybe (WithSeverity (TraceEvent blk)), Integer) conteliding :: (ToObject t, Transformable t IO (WithSeverity (TraceEvent blk))) => TracingVerbosity -> Trace IO t -> WithSeverity (TraceEvent blk) -> (Maybe (WithSeverity (TraceEvent blk)), Integer) -> IO (Maybe (WithSeverity (TraceEvent blk)), Integer) stopeliding :: (ToObject t, Transformable t IO (WithSeverity (TraceEvent blk))) => TracingVerbosity -> Trace IO t -> WithSeverity (TraceEvent blk) -> (Maybe (WithSeverity (TraceEvent blk)), Integer) -> IO (Maybe (WithSeverity (TraceEvent blk)), Integer) reportelided :: (ToObject t, Transformable t IO (WithSeverity (TraceEvent blk))) => TracingVerbosity -> Trace IO t -> WithSeverity (TraceEvent blk) -> Integer -> IO () elideToLogObject :: (ToObject t, Transformable t IO (WithSeverity (TraceEvent blk))) => TracingVerbosity -> MVar (Maybe (WithSeverity (TraceEvent blk)), Integer) -> Trace IO t -> Tracer IO (WithSeverity (TraceEvent blk))
(StandardHash header, Eq peer) => ElidingTracer (WithSeverity [TraceLabelPeer peer (FetchDecision [Point header])]) Source #
Instance details Methods doelide :: WithSeverity [TraceLabelPeer peer (FetchDecision [Point header])] -> Bool isEquivalent :: WithSeverity [TraceLabelPeer peer (FetchDecision [Point header])] -> WithSeverity [TraceLabelPeer peer (FetchDecision [Point header])] -> Bool newstate :: IO (MVar (Maybe (WithSeverity [TraceLabelPeer peer (FetchDecision [Point header])]), Integer)) starteliding :: (ToObject t, Transformable t IO (WithSeverity [TraceLabelPeer peer (FetchDecision [Point header])])) => TracingVerbosity -> Trace IO t -> WithSeverity [TraceLabelPeer peer (FetchDecision [Point header])] -> IO (Maybe (WithSeverity [TraceLabelPeer peer (FetchDecision [Point header])]), Integer) conteliding :: (ToObject t, Transformable t IO (WithSeverity [TraceLabelPeer peer (FetchDecision [Point header])])) => TracingVerbosity -> Trace IO t -> WithSeverity [TraceLabelPeer peer (FetchDecision [Point header])] -> (Maybe (WithSeverity [TraceLabelPeer peer (FetchDecision [Point header])]), Integer) -> IO (Maybe (WithSeverity [TraceLabelPeer peer (FetchDecision [Point header])]), Integer) stopeliding :: (ToObject t, Transformable t IO (WithSeverity [TraceLabelPeer peer (FetchDecision [Point header])])) => TracingVerbosity -> Trace IO t -> WithSeverity [TraceLabelPeer peer (FetchDecision [Point header])] -> (Maybe (WithSeverity [TraceLabelPeer peer (FetchDecision [Point header])]), Integer) -> IO (Maybe (WithSeverity [TraceLabelPeer peer (FetchDecision [Point header])]), Integer) reportelided :: (ToObject t, Transformable t IO (WithSeverity [TraceLabelPeer peer (FetchDecision [Point header])])) => TracingVerbosity -> Trace IO t -> WithSeverity [TraceLabelPeer peer (FetchDecision [Point header])] -> Integer -> IO () elideToLogObject :: (ToObject t, Transformable t IO (WithSeverity [TraceLabelPeer peer (FetchDecision [Point header])])) => TracingVerbosity -> MVar (Maybe (WithSeverity [TraceLabelPeer peer (FetchDecision [Point header])]), Integer) -> Trace IO t -> Tracer IO (WithSeverity [TraceLabelPeer peer (FetchDecision [Point header])])