repositories
/
cloogle-irc.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
log pongs
[cloogle-irc.git]
/
IRC.dcl
diff --git
a/IRC.dcl
b/IRC.dcl
index
337d6f9
..
d88205b
100644
(file)
--- a/
IRC.dcl
+++ b/
IRC.dcl
@@
-1,6
+1,5
@@
definition module IRC
definition module IRC
-from Data.Either import :: Either
from Data.Maybe import :: Maybe
from StdOverloaded import class fromInt, class toInt, class toString
from Data.Maybe import :: Maybe
from StdOverloaded import class fromInt, class toInt, class toString
@@
-13,7
+12,7
@@
from StdOverloaded import class fromInt, class toInt, class toString
| INFO (Maybe String)
| INVITE String String
| ISON [String]
| INFO (Maybe String)
| INVITE String String
| ISON [String]
- | JOIN
(Either () [(String, Maybe String)])
+ | JOIN
[(String, Maybe String)]
| 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))
@@
-28,8
+27,8
@@
from StdOverloaded import class fromInt, class toInt, class toString
| OPER String String
| PART [String]
| PASS String
| OPER String String
| PART [String]
| PASS String
- | PING
[String]
- | PONG
[String]
+ | PING
String (Maybe String)
+ | PONG
String (Maybe String)
| PRIVMSG String String
| QUIT (Maybe String)
| REHASH
| PRIVMSG String String
| QUIT (Maybe String)
| REHASH