diff options
| author | Julien Dessaux | 2009-08-07 00:20:58 +0200 |
|---|---|---|
| committer | Julien Dessaux | 2009-08-07 00:20:58 +0200 |
| commit | 7a9d187421cf1d809d7d0bc8a46f3b7b6b5b028c (patch) | |
| tree | 5ff8924f0b3839a80ab08f9d11c47767ffc3b6f0 /Hsbot/IRC.hs | |
| parent | Wrote the ping pong stuff (diff) | |
| download | hsbot-7a9d187421cf1d809d7d0bc8a46f3b7b6b5b028c.tar.gz hsbot-7a9d187421cf1d809d7d0bc8a46f3b7b6b5b028c.tar.bz2 hsbot-7a9d187421cf1d809d7d0bc8a46f3b7b6b5b028c.zip | |
Began to write the commands' stuff, and made a working reboot.
Diffstat (limited to '')
| -rw-r--r-- | Hsbot/IRC.hs | 2 |
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) |