adyxax/hsbot
Archived
1
0
Fork 0
Code Issues Activity

Began to write the commands' stuff, and made a working reboot.

Browse source
This commit is contained in:
Julien Dessaux 2009-08-07 00:20:58 +02:00
commit 7a9d187421
2 changed files with 29 additions and 3 deletions
Hsbot
IRC.hs

2
Hsbot/IRC.hs
View file

@ -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)