summaryrefslogtreecommitdiff
path: root/Hsbot/IRC.hs
diff options
context:
space:
mode:
authorJulien Dessaux2009-08-07 00:20:58 +0200
committerJulien Dessaux2009-08-07 00:20:58 +0200
commit7a9d187421cf1d809d7d0bc8a46f3b7b6b5b028c (patch)
tree5ff8924f0b3839a80ab08f9d11c47767ffc3b6f0 /Hsbot/IRC.hs
parentWrote the ping pong stuff (diff)
downloadhsbot-7a9d187421cf1d809d7d0bc8a46f3b7b6b5b028c.tar.gz
hsbot-7a9d187421cf1d809d7d0bc8a46f3b7b6b5b028c.tar.bz2
hsbot-7a9d187421cf1d809d7d0bc8a46f3b7b6b5b028c.zip
Began to write the commands' stuff, and made a working reboot.
Diffstat (limited to 'Hsbot/IRC.hs')
-rw-r--r--Hsbot/IRC.hs2
1 files changed, 1 insertions, 1 deletions
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)