summaryrefslogtreecommitdiff
path: root/Hsbot/IRC.hs
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--Hsbot/IRC.hs14
1 files changed, 4 insertions, 10 deletions
diff --git a/Hsbot/IRC.hs b/Hsbot/IRC.hs
index abac6b2..7922a37 100644
--- a/Hsbot/IRC.hs
+++ b/Hsbot/IRC.hs
@@ -1,6 +1,5 @@
module Hsbot.IRC
- ( IrcInput(..)
- , IrcOutput(..)
+ ( IrcLine(..)
, connectServer
, initServer
, parseIrcMsg
@@ -21,17 +20,12 @@ type Channel = String
type Command = String
type Args = [String]
--- | Information from IRC
-data IrcInput = Cmd User Channel (Command, Maybe String) -- a regular command
- | Line User Channel String -- a normal line of little significance
- | Err String -- an error occured in parsing
- deriving (Eq,Show)
-
--- | Data that can go over the remote channel
-data IrcOutput = Str String -- a regular string
+-- | An IRC line
+data IrcLine = Str String -- a regular string
| Quit (IrcServer, Handle) -- a quit message from a server
| Join (IrcServer, Channel) -- joined a channel
| Part (IrcServer, Channel) -- parted the channel
+ | Ping (String) -- pinged by the server
| Reboot -- reboot message sent
| Nil -- signifies thread death, only happens after reboot
deriving (Eq,Show)