From cbf27e4fd334d8642a2868602efc88a30ecae8cf Mon Sep 17 00:00:00 2001 From: Karl Knutsson Date: Mon, 27 Sep 2021 16:49:19 +0200 Subject: [PATCH] Use traceChainSyncHeaderServer to control tracer The chainSyncServerHeaderTracer tracer should be controlled by the TraceChainSyncHeaderServer config value --- cardano-node/src/Cardano/Tracing/Tracers.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/cardano-node/src/Cardano/Tracing/Tracers.hs b/cardano-node/src/Cardano/Tracing/Tracers.hs index fb7f7f4afbf..4c17fefec84 100644 --- a/cardano-node/src/Cardano/Tracing/Tracers.hs +++ b/cardano-node/src/Cardano/Tracing/Tracers.hs @@ -538,7 +538,8 @@ mkConsensusTracers mbEKGDirect trSel verb tr nodeKern fStats = do { Consensus.chainSyncClientTracer = tracerOnOff (traceChainSyncClient trSel) verb "ChainSyncClient" tr , Consensus.chainSyncServerHeaderTracer = Tracer $ \ev -> do - traceWith (annotateSeverity . toLogObject' verb $ appendName "ChainSyncHeaderServer" tr) ev + traceWith (annotateSeverity . toLogObject' verb $ appendName "ChainSyncHeaderServer" + (tracerOnOff' (traceChainSyncHeaderServer trSel) tr)) ev traceServedCount mbEKGDirect ev , Consensus.chainSyncServerBlockTracer = tracerOnOff (traceChainSyncBlockServer trSel) verb "ChainSyncBlockServer" tr , Consensus.blockFetchDecisionTracer = tracerOnOff' (traceBlockFetchDecisions trSel) $