From b6d119cf5b14fd7198552e939d8f49b15307e74e Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Sun, 25 Apr 2010 16:43:01 +0200
Subject: Some refactoring + cosmetics.

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

(limited to 'Hsbot/IRCParser.hs')

diff --git a/Hsbot/IRCParser.hs b/Hsbot/IRCParser.hs
index 263ac1f..d284377 100644
--- a/Hsbot/IRCParser.hs
+++ b/Hsbot/IRCParser.hs
@@ -18,7 +18,7 @@ pMsg = do
     pfx <- optionMaybe pPrefix
     cmd <- pCommand
     params <- many (char ' ' >> (pLongParam <|> pShortParam))
-    char '\r'
+    _ <- char '\r'
     --eof
     return $ IrcMsg pfx cmd params
 
-- 
cgit v1.2.3