From 45251d8968efba73bde4f6540f2f76ad0c992632 Mon Sep 17 00:00:00 2001 From: Denis Tereshkin Date: Mon, 7 Jul 2025 23:09:16 +0700 Subject: [PATCH] Junction: print logs to stderr --- src/ATrade/Driver/Junction.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/ATrade/Driver/Junction.hs b/src/ATrade/Driver/Junction.hs index cd4ad8e..6f53683 100644 --- a/src/ATrade/Driver/Junction.hs +++ b/src/ATrade/Driver/Junction.hs @@ -84,7 +84,7 @@ locked :: (MonadIO m, MonadUnliftIO m) => QSem -> LogAction m a -> LogAction m a locked sem action = LogAction (\m -> withQSem sem (action <& m)) logger :: (MonadIO m) => M.Map T.Text Severity -> Handle -> LogAction m Message -logger loglevels h = cfilter checkLoglevel (fmtMessage >$< (logTextStdout <> logTextHandle h)) +logger loglevels h = cfilter checkLoglevel (fmtMessage >$< (logTextStderr <> logTextHandle h)) where checkLoglevel msg = case M.lookup (msgComponent msg) loglevels of