diff --git a/cardano-node/src/Cardano/Node/Tracing/Tracers/Diffusion.hs b/cardano-node/src/Cardano/Node/Tracing/Tracers/Diffusion.hs index ce2c5c48cce..0300bb0dd0b 100644 --- a/cardano-node/src/Cardano/Node/Tracing/Tracers/Diffusion.hs +++ b/cardano-node/src/Cardano/Node/Tracing/Tracers/Diffusion.hs @@ -406,7 +406,7 @@ severityDiffusionInit ND.ListeningServerSocket {} = Info severityDiffusionInit ND.ServerSocketUp {} = Info severityDiffusionInit ND.UnsupportedLocalSystemdSocket {} = Info severityDiffusionInit ND.UnsupportedReadySocketCase {} = Info -severityDiffusionInit ND.DiffusionErrored {} = Info +severityDiffusionInit ND.DiffusionErrored {} = Alert namesForDiffusionInit :: ND.InitializationTracer rard ladr -> [Text] namesForDiffusionInit ND.RunServer {} = diff --git a/cardano-node/src/Cardano/Tracing/OrphanInstances/Network.hs b/cardano-node/src/Cardano/Tracing/OrphanInstances/Network.hs index c98267c5d7d..6bb52490bbe 100644 --- a/cardano-node/src/Cardano/Tracing/OrphanInstances/Network.hs +++ b/cardano-node/src/Cardano/Tracing/OrphanInstances/Network.hs @@ -114,6 +114,7 @@ import qualified Ouroboros.Network.Diffusion as ND instance HasPrivacyAnnotation (ND.InitializationTracer ntnAddr ntcAddr) instance HasSeverityAnnotation (ND.InitializationTracer ntnAddr ntcAddr) where + getSeverityAnnotation ND.DiffusionErrored {} = Alert getSeverityAnnotation _ = Info instance HasPrivacyAnnotation (NtC.HandshakeTr LocalAddress NodeToClientVersion)