Merge pull request #6196 from IntersectMBO/karknu/adj_trace

Lower severity for some network tracers.

Author: karknu

cardano-node/ChangeLog.md

@@ -7,6 +7,8 @@
   (from `cardano-node:Cardano.Node.Tracing.Peers` to `trace-dispatcher:Cardano.Logging.Types.NodePeers`), and
   `NodeStartupInfo` (from `cardano-tracer:Cardano.Node.Startup` to `cardano-node:Cardano.Node.Tracing.NodeStartupInfo.hs`).
 
+- Lower the log severity from Error to Info for TracePromoteWarmBigLedgerPeerAborted and ResponderStartFailure
+
 - Add a new configuration field for fork-policy.
 
 - Optionally support lightweight checkpointing.

cardano-node/src/Cardano/Node/Tracing/Tracers/P2P.hs

@@ -708,6 +708,7 @@ instance MetaTrace (TracePeerSelection extraDebugState extraFlags extraPeers Soc
     severityFor (Namespace [] ["PromoteWarmFailed"]) _ = Just Info
     severityFor (Namespace [] ["PromoteWarmDone"]) _ = Just Info
     severityFor (Namespace [] ["PromoteWarmAborted"]) _ = Just Info
+    severityFor (Namespace [] ["PromoteWarmBigLedgerPeerAborted"]) _ = Just Info
     severityFor (Namespace [] ["DemoteWarmPeers"]) _ = Just Info
     severityFor (Namespace [] ["DemoteWarmFailed"]) _ = Just Info
     severityFor (Namespace [] ["DemoteWarmDone"]) _ = Just Info
@@ -1760,7 +1761,7 @@ instance MetaTrace (InboundGovernor.Trace addr) where
 
     severityFor (Namespace _ ["NewConnection"]) _ = Just Debug
     severityFor (Namespace _ ["ResponderRestarted"]) _ = Just Debug
-    severityFor (Namespace _ ["ResponderStartFailure"]) _ = Just Error
+    severityFor (Namespace _ ["ResponderStartFailure"]) _ = Just Info
     severityFor (Namespace _ ["ResponderErrored"]) _ = Just Info
     severityFor (Namespace _ ["ResponderStarted"]) _ = Just Debug
     severityFor (Namespace _ ["ResponderTerminated"]) _ = Just Debug

cardano-node/src/Cardano/Tracing/OrphanInstances/Network.hs

@@ -485,7 +485,7 @@ instance HasSeverityAnnotation (TracePeerSelection extraDebugState extraFlags (C
       TracePromoteWarmBigLedgerPeers {}       -> Info
       TracePromoteWarmBigLedgerPeerFailed {}  -> Error
       TracePromoteWarmBigLedgerPeerDone {}    -> Info
-      TracePromoteWarmBigLedgerPeerAborted {} -> Error
+      TracePromoteWarmBigLedgerPeerAborted {} -> Info
 
       TraceDemoteWarmBigLedgerPeers {}      -> Info
       TraceDemoteWarmBigLedgerPeerFailed {} -> Info
@@ -586,7 +586,7 @@ instance HasSeverityAnnotation (InboundGovernor.Trace addr) where
     case ev of
       InboundGovernor.TrNewConnection {}           -> Debug
       InboundGovernor.TrResponderRestarted {}      -> Debug
-      InboundGovernor.TrResponderStartFailure {}   -> Error
+      InboundGovernor.TrResponderStartFailure {}   -> Info
       InboundGovernor.TrResponderErrored {}        -> Info
       InboundGovernor.TrResponderStarted {}        -> Debug
       InboundGovernor.TrResponderTerminated {}     -> Debug