Archived
1
0
Fork 0

Added IRC connection and initialisation stuff.

This commit is contained in:
Julien Dessaux 2009-08-06 00:11:14 +02:00
parent 45ebb68aa0
commit b9c8e4d404
4 changed files with 34 additions and 5 deletions

View file

@ -2,7 +2,6 @@ module Hsbot.Main
(imain
) where
import Network
import System.IO
import System.Plugins
@ -19,5 +18,7 @@ imain modul' reboot = imain' modul' reboot newbot
-- | Bot's main entry point
imain' :: Module -> Reboot -> Bot -> IO ()
imain' modul' reboot bot = do
print C.config
servers' <- mapM connectServer (ircServers C.config)
mapM_ initServer servers'
return ()