From 7a9d187421cf1d809d7d0bc8a46f3b7b6b5b028c Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Fri, 7 Aug 2009 00:20:58 +0200
Subject: Began to write the commands' stuff, and made a working reboot.

---
 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 cd6b7b8..abac6b2 100644
--- a/Hsbot/IRC.hs
+++ b/Hsbot/IRC.hs
@@ -38,7 +38,7 @@ data IrcOutput = Str String                 -- a regular string
 
 -- | Parses an IrcInput
 parseIrcMsg :: String -> IrcInput
-parseIrcMsg _ = Err "Parsing not yet implemented"
+parseIrcMsg str = (Cmd "user" "channel" (str, Just "args"))
 
 -- | Connects to a server
 connectServer :: IrcServer -> IO (IrcServer, Handle)
-- 
cgit v1.2.3