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