From 2f270f8bdf0e5f226e9e54881ec71a2bde465b71 Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Fri, 7 Aug 2009 00:10:45 +0200
Subject: Refactored some minor stuff

---
 Hsbot/Main.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'Hsbot/Main.hs')

diff --git a/Hsbot/Main.hs b/Hsbot/Main.hs
index 5ff138b..23b3991 100644
--- a/Hsbot/Main.hs
+++ b/Hsbot/Main.hs
@@ -1,5 +1,5 @@
 module Hsbot.Main
-    (imain
+    ( imain
     ) where
 
 import System.IO
@@ -18,7 +18,9 @@ imain modul' reboot = imain' modul' reboot newbot
 -- | Bot's main entry point
 imain' :: Module -> Reboot -> Bot -> IO ()
 imain' modul' reboot bot = do
+    putStrLn "Connecting servers..."
     servers' <- mapM connectServer (ircServers C.config)
+    putStrLn "Joining channels..."
     mapM_ initServer servers'
     return ()
 
-- 
cgit v1.2.3