adyxax/hsbot
Archived
1
0
Fork 0
Code Issues Activity

Refactored some minor stuff

Browse source
This commit is contained in:
Julien Dessaux 2009-08-07 00:10:45 +02:00
parent b9c8e4d404
commit 2f270f8bdf
5 changed files with 14 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Hsbot/Main.hs
View file

@ -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 ()