Flush logs only in log write thread

input-output-hk · Mar 17, 2023 · a2295a6 · a2295a6
1 parent bbe90bf
commit a2295a6
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/hydra-node/src/Hydra/Logging.hs b/hydra-node/src/Hydra/Logging.hs
@@ -49,6 +49,7 @@ import Data.Aeson (pairs, (.=))
 import qualified Data.Aeson as Aeson
 import qualified Data.ByteString.Lazy as LBS
 import qualified Data.Text as Text
+import Debug.Trace (traceIO)
 import Test.QuickCheck.Instances.Text ()
 import Test.QuickCheck.Instances.Time ()
 
@@ -105,7 +106,7 @@ withTracerOutputTo ::
 withTracerOutputTo hdl namespace action = do
   msgQueue <- newTBQueueIO @_ @(Envelope msg) defaultQueueSize
   withAsync (writeLogs msgQueue `finally` flushLogs msgQueue) $ \_ ->
-    action (tracer msgQueue) `finally` flushLogs msgQueue
+    action (tracer msgQueue)
  where
   tracer queue =
     Tracer $