diff options
| author | Julien Dessaux | 2009-08-06 00:11:14 +0200 |
|---|---|---|
| committer | Julien Dessaux | 2009-08-06 00:11:14 +0200 |
| commit | b9c8e4d404c444d57fe7320c25ba0654d9c5193c (patch) | |
| tree | 98796cc7cf2b74b51feaf6214c5b1ae8c49688d8 /Hsbot/Main.hs | |
| parent | renamed "Server" algebraic data type to "IrcServer" (diff) | |
| download | hsbot-b9c8e4d404c444d57fe7320c25ba0654d9c5193c.tar.gz hsbot-b9c8e4d404c444d57fe7320c25ba0654d9c5193c.tar.bz2 hsbot-b9c8e4d404c444d57fe7320c25ba0654d9c5193c.zip | |
Added IRC connection and initialisation stuff.
Diffstat (limited to '')
| -rw-r--r-- | Hsbot/Main.hs | 5 |
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 () |