From 8ba832d4f4de3276f0e1c93e74796e66d1b91de1 Mon Sep 17 00:00:00 2001 From: Denis Tereshkin Date: Thu, 22 Sep 2016 00:46:27 +0700 Subject: [PATCH] Logging --- app/Main.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/app/Main.hs b/app/Main.hs index 7bce452..87b10b0 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -73,12 +73,15 @@ parseConfig = withObject "object" $ \obj -> do main :: IO () main = do + updateGlobalLogger rootLoggerName (setLevel DEBUG) + infoM "main" "Loading config" config <- readConfig "quik-connector.config.json" - print config + infoM "main" "Config loaded" chan <- newBoundedChan 1000 forkIO $ forever $ do tick <- readChan chan when (datatype tick == Price) $ print tick + infoM "main" "Starting data import server" dis <- initDataImportServer [MkTableParser $ mkAllParamsTableParser "allparams"] chan "atrade" void initGUI window <- windowNew