From 1a2703fbb48b874f7c096ea3b15fbf11bd0896f6 Mon Sep 17 00:00:00 2001
From: Denis Tereshkin <denis@kasan.ws>
Date: Mon, 7 Jul 2025 23:16:29 +0700
Subject: [PATCH] Fix build

---
 src/ATrade/Driver/Junction.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/ATrade/Driver/Junction.hs b/src/ATrade/Driver/Junction.hs
index 6f53683..b1a461d 100644
--- a/src/ATrade/Driver/Junction.hs
+++ b/src/ATrade/Driver/Junction.hs
@@ -36,7 +36,7 @@ import           ATrade.Types                                (OrderId, Trade (tr
 import           Colog                                       (LogAction (LogAction),
                                                               cfilter,
                                                               hoistLogAction,
-                                                              logTextStdout,
+                                                              logTextStderr,
                                                               (<&), (>$<))
 import           Colog.Actions                               (logTextHandle)
 import           Control.Concurrent.QSem                     (newQSem)
@@ -95,7 +95,7 @@ junctionMain :: M.Map T.Text StrategyDescriptorE -> IO ()
 junctionMain descriptors = do
   opts <- parseOptions
 
-  let initialLogger = fmtMessage >$< logTextStdout
+  let initialLogger = fmtMessage >$< logTextStderr
 
   logWith initialLogger Info "Junction" $ "Reading config from: " <> (T.pack . show) (configPath opts)