Safe Haskell | None |
---|---|
Language | Haskell2010 |
Synopsis
- data Tracers peer localPeer blk = Tracers {
- chainDBTracer ∷ Tracer IO (TraceEvent blk)
- consensusTracers ∷ Tracers IO peer localPeer blk
- nodeToNodeTracers ∷ Tracers IO peer blk DeserialiseFailure
- nodeToClientTracers ∷ Tracers IO localPeer blk DeserialiseFailure
- ipSubscriptionTracer ∷ Tracer IO (WithIPList (SubscriptionTrace SockAddr))
- dnsSubscriptionTracer ∷ Tracer IO (WithDomainName (SubscriptionTrace SockAddr))
- dnsResolverTracer ∷ Tracer IO (WithDomainName DnsTrace)
- errorPolicyTracer ∷ Tracer IO (WithAddr SockAddr ErrorPolicyTrace)
- localErrorPolicyTracer ∷ Tracer IO (WithAddr LocalAddress ErrorPolicyTrace)
- acceptPolicyTracer ∷ Tracer IO AcceptConnectionsPolicyTrace
- muxTracer ∷ Tracer IO (WithMuxBearer peer MuxTrace)
- muxLocalTracer ∷ Tracer IO (WithMuxBearer localPeer MuxTrace)
- handshakeTracer ∷ Tracer IO HandshakeTr
- localHandshakeTracer ∷ Tracer IO HandshakeTr
- diffusionInitializationTracer ∷ Tracer IO DiffusionInitializationTracer
- data TraceOptions
- mkTracers ∷ ∀ peer localPeer blk. (RunNode blk, HasKESMetricsData blk, HasKESInfo blk, TraceConstraints blk, Show peer, Eq peer, ToObject peer, Show localPeer, ToObject localPeer) ⇒ BlockConfig blk → TraceOptions → Trace IO Text → NodeKernelData blk → Maybe EKGDirect → IO (Tracers peer localPeer blk)
- nullTracers ∷ Tracers peer localPeer blk
- traceCounter ∷ Text → Trace IO Text → Int → IO ()
Documentation
data Tracers peer localPeer blk Source #
Tracers | |
|
data TraceOptions Source #
Instances
Eq TraceOptions Source # | |
Defined in Bcc.Tracing.Config (==) ∷ TraceOptions → TraceOptions → Bool Source # (/=) ∷ TraceOptions → TraceOptions → Bool Source # | |
Show TraceOptions Source # | |
Defined in Bcc.Tracing.Config |
mkTracers ∷ ∀ peer localPeer blk. (RunNode blk, HasKESMetricsData blk, HasKESInfo blk, TraceConstraints blk, Show peer, Eq peer, ToObject peer, Show localPeer, ToObject localPeer) ⇒ BlockConfig blk → TraceOptions → Trace IO Text → NodeKernelData blk → Maybe EKGDirect → IO (Tracers peer localPeer blk) Source #
Tracers for all system components.
nullTracers ∷ Tracers peer localPeer blk Source #
Orphan instances
Show a ⇒ Show (WithSeverity a) Source # | |
(StandardHash header, Eq peer) ⇒ ElidingTracer (WithSeverity [TraceLabelPeer peer (FetchDecision [Point header])]) Source # | |
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])]) | |
ElidingTracer (WithSeverity (TraceEvent blk)) Source # | |
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)) |