From 4c76d3d40bbfea365283c13256b3e7cf2d2deb5e Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Wed, 21 Apr 2010 20:57:22 +0200
Subject: Fixed several stuff.

---
 Hsbot/IRCParser.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Hsbot/IRCParser.hs')

diff --git a/Hsbot/IRCParser.hs b/Hsbot/IRCParser.hs
index ebf8f71..a5f2e41 100644
--- a/Hsbot/IRCParser.hs
+++ b/Hsbot/IRCParser.hs
@@ -24,9 +24,9 @@ pMsg = do
 
 pPrefix :: ParsecT String u Identity [Char]
 pPrefix = do
-    char ':'
+    _ <- char ':'
     pfx <- many1 (noneOf " ")
-    space
+    _ <- space
     return pfx
 
 pCommand :: ParsecT String u Identity [Char]
-- 
cgit v1.2.3