diff options
| author | Julien Dessaux | 2010-01-22 18:45:20 +0100 |
|---|---|---|
| committer | Julien Dessaux | 2010-02-04 20:57:10 +0100 |
| commit | 047a10bc9b9ef348ab57cbb58c6940a0858c38ac (patch) | |
| tree | 3c83df8f556c400d855da6e539b3c11f52457b79 /Hsbot/IRC.hs | |
| parent | Rewrote command handling, added the Quote module and cleaned input handling. (diff) | |
| download | hsbot-047a10bc9b9ef348ab57cbb58c6940a0858c38ac.tar.gz hsbot-047a10bc9b9ef348ab57cbb58c6940a0858c38ac.tar.bz2 hsbot-047a10bc9b9ef348ab57cbb58c6940a0858c38ac.zip | |
Fixed some types' functions.
Diffstat (limited to 'Hsbot/IRC.hs')
| -rw-r--r-- | Hsbot/IRC.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Hsbot/IRC.hs b/Hsbot/IRC.hs index a489ee9..c837a4f 100644 --- a/Hsbot/IRC.hs +++ b/Hsbot/IRC.hs @@ -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 () |