From 047a10bc9b9ef348ab57cbb58c6940a0858c38ac Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Fri, 22 Jan 2010 18:45:20 +0100
Subject: Fixed some types' functions.

---
 Hsbot/IRC.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Hsbot/IRC.hs')

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 ()
-- 
cgit v1.2.3