GSM tracer: adapt severities

These trace messages are quite rare and (especially with Genesis) the GSM state
has a significant effect on the behavior of the node.

Author: amesgen

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

@@ -2105,10 +2105,10 @@ instance MetaTrace (TraceGsmEvent selection) where
 
   severityFor ns _ =
     case ns of
-      Namespace _ ["EnterCaughtUp"]       -> Just Info
-      Namespace _ ["LeaveCaughtUp"]       -> Just Info
-      Namespace _ ["PreSyncingToSyncing"] -> Just Info
-      Namespace _ ["SyncingToPreSyncing"] -> Just Info
+      Namespace _ ["EnterCaughtUp"]       -> Just Notice
+      Namespace _ ["LeaveCaughtUp"]       -> Just Warning
+      Namespace _ ["PreSyncingToSyncing"] -> Just Notice
+      Namespace _ ["SyncingToPreSyncing"] -> Just Notice
       Namespace _ _                       -> Nothing
 
   documentFor = \case

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

@@ -1756,8 +1756,14 @@ instance ToObject (TraceLocalTxSubmissionServerEvent blk) where
     mconcat [ "kind" .= String "TraceLocalTxSubmissionServerEvent" ]
 
 instance HasPrivacyAnnotation (TraceGsmEvent selection) where
+
 instance HasSeverityAnnotation (TraceGsmEvent selection) where
-  getSeverityAnnotation _ = Info
+  getSeverityAnnotation = \case
+    GsmEventEnterCaughtUp{}       -> Notice
+    GsmEventLeaveCaughtUp{}       -> Warning
+    GsmEventPreSyncingToSyncing{} -> Notice
+    GsmEventSyncingToPreSyncing{} -> Notice
+
 instance ToObject selection => Transformable Text IO (TraceGsmEvent selection) where
   trTransformer = trStructured