network-mux:logging - patterns

Author: fmaste

network-mux/logging/Network/Mux/Logging.hs

@@ -409,6 +409,9 @@ instance LogFormatting Mux.Trace where
       , "msg"  .= String "Mux stoppped"
       ]
 
+    forMachine _dtal (Mux.TraceNewMux _) = mconcat []
+    forMachine _dtal Mux.TraceStarting = mconcat []
+
     forHuman (Mux.TraceState new) =
       sformat ("State: " % shown) new
     forHuman (Mux.TraceCleanExit mid dir) =
@@ -430,6 +433,9 @@ instance LogFormatting Mux.Trace where
     forHuman Mux.TraceStopping = "Mux stopping"
     forHuman Mux.TraceStopped  = "Mux stoppped"
 
+    forHuman (Mux.TraceNewMux _) = ""
+    forHuman Mux.TraceStarting = ""
+
 instance MetaTrace Mux.Trace where
     namespaceFor Mux.TraceState {}                 =
       Namespace [] ["State"]
@@ -452,6 +458,9 @@ instance MetaTrace Mux.Trace where
     namespaceFor Mux.TraceStopped                  =
       Namespace [] ["Stopped"]
 
+    namespaceFor (Mux.TraceNewMux _)               = Namespace [] []
+    namespaceFor Mux.TraceStarting                 = Namespace [] []
+
     severityFor (Namespace _ ["State"]) _                 = Just Info
     severityFor (Namespace _ ["CleanExit"]) _             = Just Notice
     severityFor (Namespace _ ["ExceptionExit"]) _         = Just Notice