Add severity to MsgHttpMonitoring

cardano-foundation · May 8, 2024 · 258d922 · 258d922
1 parent 2c17d68
commit 258d922
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/lib/local-cluster/lib/Cardano/Wallet/Launch/Cluster/Monitoring/Http/Logging.hs b/lib/local-cluster/lib/Cardano/Wallet/Launch/Cluster/Monitoring/Http/Logging.hs
@@ -8,6 +8,12 @@ where
 
 import Prelude
 
+import Cardano.BM.Data.Tracer
+    ( HasSeverityAnnotation (..)
+    )
+import Cardano.BM.Tracing
+    ( Severity (..)
+    )
 import Cardano.Wallet.Launch.Cluster.Monitoring.Http.Client
     ( MsgClient
     )
@@ -45,3 +51,13 @@ instance ToText MsgHttpMonitoring where
             "HTTP monitoring client stopped"
         MsgHttpMonitoringDone ->
             "HTTP monitoring done"
+
+instance HasSeverityAnnotation MsgHttpMonitoring where
+    getSeverityAnnotation = \case
+        MsgHttpMonitoringPort _ -> Info
+        MsgHttpMonitoringQuery _ -> Info
+        MsgHttpMonitoringServerStarted -> Info
+        MsgHttpMonitoringServerStopped -> Info
+        MsgHttpMonitoringClientStarted -> Info
+        MsgHttpMonitoringClientStopped -> Info
+        MsgHttpMonitoringDone -> Info