repositories
/
cloogle-irc.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
update
[cloogle-irc.git]
/
IRC.dcl
diff --git
a/IRC.dcl
b/IRC.dcl
index
afb7a74
..
0fffb7e
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)
@@
-31,12
+31,12
@@
instance toInt IRCReplies, IRCErrors
| KICK String String (Maybe String)
| KILL String String
| LINKS (Maybe (Maybe String, String))
| KICK String String (Maybe String)
| KILL String String
| LINKS (Maybe (Maybe String, String))
- | LIST
[String]
+ | LIST
(Maybe ([String], Maybe String))
| LUSERS (Maybe (String, Maybe String))
| LUSERS (Maybe (String, Maybe String))
- | MODE String
+ | MODE String
String (Maybe String) (Maybe String) (Maybe String)
| MOTD (Maybe String)
| NAMES [String]
| MOTD (Maybe String)
| NAMES [String]
- | NICK String
+ | NICK String
(Maybe String)
| NJOIN
| NOTICE String String
| OPER String String
| NJOIN
| NOTICE String String
| OPER String String
@@
-44,7
+44,7
@@
instance toInt IRCReplies, IRCErrors
| PASS String
| PING String (Maybe String)
| PONG String (Maybe String)
| PASS String
| PING String (Maybe String)
| PONG String (Maybe String)
- | PRIVMSG
String
String
+ | PRIVMSG
[String]
String
| QUIT (Maybe String)
| REHASH
| RESTART
| QUIT (Maybe String)
| REHASH
| RESTART
@@
-59,7
+59,7
@@
instance toInt IRCReplies, IRCErrors
| TIME (Maybe String)
| TOPIC String (Maybe String)
| TRACE (Maybe String)
| TIME (Maybe String)
| TOPIC String (Maybe String)
| TRACE (Maybe String)
- | USER String
Int
String
+ | USER String
String
String
| USERHOST [String]
| USERS (Maybe String)
| VERSION (Maybe String)
| USERHOST [String]
| USERS (Maybe String)
| VERSION (Maybe String)