More debug logging

src/Bot.hs

@@ -36,8 +36,8 @@ import           Text.Printf.TH
 
 startBot :: Config -> IO ()
 startBot conf = forever $ do
-  killMVar <- newEmptyMVar
   infoM "ATradeBot" "Starting session"
+  killMVar <- newEmptyMVar
   mbsess <- session
     (cHostname conf)
     (Just ((\_ -> [scramSha1 (cUsername conf) Nothing (cPassword conf)]), Just "bot"))

src/Main.hs

@@ -25,4 +25,4 @@ main = do
     Left err     -> do
       criticalM rootLoggerName $ "Can't load config: " ++ err
     Right config -> startBot config
-
+  infoM rootLoggerName "Bot shutdown"