Revert finally where it was originally

input-output-hk · Mar 17, 2023 · b1b3e15 · b1b3e15
1 parent 8dd4142
commit b1b3e15
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/hydra-node/src/Hydra/Logging.hs b/hydra-node/src/Hydra/Logging.hs
@@ -104,8 +104,8 @@ withTracerOutputTo ::
   IO a
 withTracerOutputTo hdl namespace action = do
   msgQueue <- newTBQueueIO @_ @(Envelope msg) defaultQueueSize
-  withAsync (writeLogs msgQueue `finally` flushLogs msgQueue) $ \_ ->
-    action (tracer msgQueue)
+  withAsync (writeLogs msgQueue) $ \_ ->
+    action (tracer msgQueue) `finally` flushLogs msgQueue
  where
   tracer queue =
     Tracer $