trace-dispatcher: fix optimization bug

IntersectMBO · May 30, 2023 · de37b2c · de37b2c
1 parent 95d8789
commit de37b2c
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/trace-dispatcher/src/Cardano/Logging/Trace.hs b/trace-dispatcher/src/Cardano/Logging/Trace.hs
@@ -238,7 +238,6 @@ setDetails p (Trace tr) = Trace $
       tr
 
 -- | Sets detail level for the messages in this trace based on the message
--- TODO Yup handle exception
 withDetails :: forall m a. (Monad m, MetaTrace a) => Trace m a -> Trace m a
 withDetails (Trace tr) = Trace $
   T.contramap

diff --git a/trace-dispatcher/src/Cardano/Logging/Tracer/Composed.hs b/trace-dispatcher/src/Cardano/Logging/Tracer/Composed.hs
@@ -88,11 +88,12 @@ mkCardanoTracer' trStdout trForward mbTrEkg tracerPrefix hook = do
     addContextAndFilter tr = do
       tr'  <- withDetailsFromConfig tr
       tr'' <- filterSeverityFromConfig tr'
-      pure $ withDetails
-            $ withSeverity
-              $ withPrivacy
-                $ withInnerNames
-                  $ appendPrefixNames tracerPrefix tr''
+      pure $ withInnerNames
+              $ appendPrefixNames tracerPrefix
+                $ withSeverity
+                  $ withPrivacy
+                    $ withDetails
+                      tr''
 
     traceNamespaceErrors ::
          Trace IO TraceDispatcherMessage