diff options
| author | Julien Dessaux | 2009-08-07 00:10:45 +0200 |
|---|---|---|
| committer | Julien Dessaux | 2009-08-07 00:10:45 +0200 |
| commit | 2f270f8bdf0e5f226e9e54881ec71a2bde465b71 (patch) | |
| tree | 7e127a649f508554ee36d036f5fae34028cd8dfa /Hsbot/Main.hs | |
| parent | Added IRC connection and initialisation stuff. (diff) | |
| download | hsbot-2f270f8bdf0e5f226e9e54881ec71a2bde465b71.tar.gz hsbot-2f270f8bdf0e5f226e9e54881ec71a2bde465b71.tar.bz2 hsbot-2f270f8bdf0e5f226e9e54881ec71a2bde465b71.zip | |
Refactored some minor stuff
Diffstat (limited to 'Hsbot/Main.hs')
| -rw-r--r-- | Hsbot/Main.hs | 4 |
1 files changed, 3 insertions, 1 deletions
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 () |