repositories
/
cloogle-irc.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added more parsing of commands
[cloogle-irc.git]
/
IRC.dcl
diff --git
a/IRC.dcl
b/IRC.dcl
index
afb7a74
..
3c5a3d1
100644
(file)
--- a/
IRC.dcl
+++ b/
IRC.dcl
@@
-6,7
+6,7
@@
from StdOverloaded import class fromInt, class toInt, class toString, class from
:: IRCMessage =
{ irc_prefix :: Maybe (Either String IRCUser)
:: IRCMessage =
{ irc_prefix :: Maybe (Either String IRCUser)
- , irc_command :: IRCCommand
s
}
+ , irc_command :: IRCCommand}
:: IRCUser =
{ irc_nick :: String
:: IRCUser =
{ irc_nick :: String
@@
-14,14
+14,14
@@
from StdOverloaded import class fromInt, class toInt, class toString, class from
, irc_host :: Maybe String
}
, irc_host :: Maybe String
}
-instance toString IRCCommand
s
, IRCReplies, IRCErrors, IRCMessage, IRCUser
+instance toString IRCCommand, IRCReplies, IRCErrors, IRCMessage, IRCUser
instance fromInt IRCReplies, IRCErrors
instance toInt IRCReplies, IRCErrors
instance fromInt IRCReplies, IRCErrors
instance toInt IRCReplies, IRCErrors
-:: IRCCommand
s
+:: IRCCommand
= ADMIN (Maybe String)
| AWAY String
= ADMIN (Maybe String)
| AWAY String
- | CONNECT String
Int (Maybe String
)
+ | CONNECT String
(Maybe (Int, Maybe String)
)
| DIE
| ERROR String
| INFO (Maybe String)
| DIE
| ERROR String
| INFO (Maybe String)