:: IRCMessage =
{ irc_prefix :: Maybe (Either String IRCUser)
- , irc_command :: IRCCommands}
+ , irc_command :: IRCCommand}
:: IRCUser =
{ irc_nick :: String
, irc_host :: Maybe String
}
-instance toString IRCCommands, IRCReplies, IRCErrors, IRCMessage, IRCUser
+instance toString IRCCommand, IRCReplies, IRCErrors, IRCMessage, IRCUser
instance fromInt IRCReplies, IRCErrors
instance toInt IRCReplies, IRCErrors
-:: IRCCommands
+:: IRCCommand
= ADMIN (Maybe String)
| AWAY String
- | CONNECT String Int (Maybe String)
+ | CONNECT String (Maybe (Int, Maybe String))
| DIE
| ERROR String
| INFO (Maybe String)