Junction: print logs to stderr

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