Added IRC connection and initialisation stuff.
This commit is contained in:
parent
45ebb68aa0
commit
b9c8e4d404
4 changed files with 34 additions and 5 deletions
|
@ -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 ()
|
||||
|
||||
|
|
Reference in a new issue