adyxax/hsbot
Archived
1
0
Fork 0
Code Issues Activity

Fixed some types' functions.

Browse source
This commit is contained in:
Julien Dessaux 2010-01-22 18:45:20 +01:00
parent 53870767c3
commit 047a10bc9b
4 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Hsbot/IRC.hs
View file

@ -19,7 +19,7 @@ initServer = do
sendstr $ serializeIrcMsg $ IrcMsg Nothing "USER" [(nickname server), "0", "*", (realname server)]
when (not . null $ password server) $ do
sendstr $ serializeIrcMsg $ IrcMsg Nothing "PRIVMSG" ["nickserv", "identify", (password server)]
mapM_ joinChan (channels server)
mapM_ joinChan (joinChannels server)
-- | Run a server
runServer :: IrcBot ()