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"