Try to fix the logs display

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