From de37b2c98f8451a9d2f05c438cd91836e2f66e36 Mon Sep 17 00:00:00 2001
From: Yupanqui <jnf@arcor.de>
Date: Tue, 23 May 2023 12:48:22 +0200
Subject: [PATCH] trace-dispatcher: fix optimization bug

---
 trace-dispatcher/src/Cardano/Logging/Trace.hs         |  1 -
 .../src/Cardano/Logging/Tracer/Composed.hs            | 11 ++++++-----
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/trace-dispatcher/src/Cardano/Logging/Trace.hs b/trace-dispatcher/src/Cardano/Logging/Trace.hs
index 10863dad9d8..6fc106c22a0 100644
--- 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
index 372a481aa2b..899342c01ac 100644
--- 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