From 2ba40d303f93601a33f45174f7a55ae2ab603b80 Mon Sep 17 00:00:00 2001
From: Denis Tereshkin <denis@kasan.ws>
Date: Mon, 22 Jun 2020 15:39:10 +0700
Subject: [PATCH] More debug logging

---
 src/Bot.hs  | 2 +-
 src/Main.hs | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Bot.hs b/src/Bot.hs
index 4e9b471..d043ea3 100644
--- a/src/Bot.hs
+++ b/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"))
diff --git a/src/Main.hs b/src/Main.hs
index 2938069..faba75f 100644
--- a/src/Main.hs
+++ b/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"