summaryrefslogtreecommitdiff
path: root/Hsbot/Main.hs
diff options
context:
space:
mode:
authorJulien Dessaux2009-08-06 00:11:14 +0200
committerJulien Dessaux2009-08-06 00:11:14 +0200
commitb9c8e4d404c444d57fe7320c25ba0654d9c5193c (patch)
tree98796cc7cf2b74b51feaf6214c5b1ae8c49688d8 /Hsbot/Main.hs
parentrenamed "Server" algebraic data type to "IrcServer" (diff)
downloadhsbot-b9c8e4d404c444d57fe7320c25ba0654d9c5193c.tar.gz
hsbot-b9c8e4d404c444d57fe7320c25ba0654d9c5193c.tar.bz2
hsbot-b9c8e4d404c444d57fe7320c25ba0654d9c5193c.zip
Added IRC connection and initialisation stuff.
Diffstat (limited to '')
-rw-r--r--Hsbot/Main.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/Hsbot/Main.hs b/Hsbot/Main.hs
index 129d2bd..5ff138b 100644
--- a/Hsbot/Main.hs
+++ b/Hsbot/Main.hs
@@ -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 ()