Implement ability to switch off the chainDBTracer, ipSubscriptionTrac…

…er, dnsSubscriptionTracer, dnsResolverTracer, errorPolicyTracer and muxTracer
IntersectMBO · Dec 13, 2019 · ff5f493 · ff5f493
1 parent 5c95c74
commit ff5f493
Showing 1 changed file with 12 additions and 6 deletions.
diff --git a/cardano-node/src/Cardano/Tracing/Tracers.hs b/cardano-node/src/Cardano/Tracing/Tracers.hs
@@ -116,31 +116,37 @@ mkTracers :: forall peer blk.
            -> Tracers peer blk
 mkTracers traceOptions tracer = Tracers
     { chainDBTracer
-        = annotateSeverity $ filterSeverity (pure . const (tracingSeverity $ traceChainDB traceOptions))
+        = tracerOnOff (traceChainDB traceOptions)
+          $ annotateSeverity $ filterSeverity (pure . const (tracingSeverity True))
           $ teeTraceChainTip (tracingFormatting $ traceChainDB traceOptions) tracingVerbosity
           $ addName "ChainDB" tracer
     , consensusTracers
         = mkConsensusTracers traceOptions
     , protocolTracers
         = mkProtocolsTracers
     , ipSubscriptionTracer
-        = annotateSeverity $ filterSeverity (pure . const (tracingSeverity $ traceIpSubscription traceOptions))
+        = tracerOnOff (traceIpSubscription traceOptions)
+          $ annotateSeverity $ filterSeverity (pure . const (tracingSeverity True))
           $ toLogObject' (tracingFormatting $ traceIpSubscription traceOptions) tracingVerbosity
           $ addName "IpSubscription" tracer
     , dnsSubscriptionTracer
-        = annotateSeverity $ filterSeverity (pure . const (tracingSeverity $ traceDnsSubscription traceOptions))
+        = tracerOnOff (traceDnsSubscription traceOptions)
+          $ annotateSeverity $ filterSeverity (pure . const (tracingSeverity True))
           $ toLogObject' (tracingFormatting $ traceDnsSubscription traceOptions) tracingVerbosity
           $ addName "DnsSubscription" tracer
     , dnsResolverTracer
-        = annotateSeverity $ filterSeverity (pure . const (tracingSeverity $ traceDnsResolver traceOptions))
+        = tracerOnOff (traceDnsResolver traceOptions)
+          $ annotateSeverity $ filterSeverity (pure . const (tracingSeverity $ traceDnsResolver traceOptions))
           $ toLogObject' (tracingFormatting $ traceDnsResolver traceOptions) tracingVerbosity
           $ addName "DnsResolver" tracer
     , errorPolicyTracer
-        = annotateSeverity $ filterSeverity (pure . const (tracingSeverity $ traceErrorPolicy traceOptions))
+        = tracerOnOff (traceErrorPolicy traceOptions)
+          $ annotateSeverity $ filterSeverity (pure . const (tracingSeverity True))
           $ toLogObject' (tracingFormatting $ traceErrorPolicy traceOptions) tracingVerbosity
           $ addName "ErrorPolicy" tracer
     , muxTracer
-        = annotateSeverity $ filterSeverity (pure . const Info)  -- filter out everything below this level
+        =  tracerOnOff (traceMux traceOptions)
+          $ annotateSeverity $ filterSeverity (pure . const Info)  -- filter out everything below this level
           $ toLogObject' (tracingFormatting $ traceMux traceOptions) tracingVerbosity
           $ addName "Mux" tracer
     }