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)