repositories
/
cloogle-irc.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
changed JOIN adt
[cloogle-irc.git]
/
IRC.icl
diff --git
a/IRC.icl
b/IRC.icl
index
9b6b134
..
8ab91db
100644
(file)
--- a/
IRC.icl
+++ b/
IRC.icl
@@
-1,5
+1,6
@@
implementation module IRC
implementation module IRC
+import StdList
import GenPrint
import StdOverloaded
import Data.Maybe
import GenPrint
import StdOverloaded
import Data.Maybe
@@
-21,8
+22,8
@@
instance toString IRCCommands where
//INFO (Maybe String)
//INVITE String String
//ISON [String]
//INFO (Maybe String)
//INVITE String String
//ISON [String]
- JOIN chs = "JOIN " +++
either (const "0")
- (
\c->join ", " [join " " [ch:maybeToList mkey]\\(ch, mkey)<-c]) chs
+ JOIN chs = "JOIN " +++
(if (isEmpty chs) "0"
+ (
join ", " [join " " [ch:maybeToList mk]\\(ch, mk)<-chs]))
//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))