repositories
/
cloogle-irc.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix problem with : for longer strings
[cloogle-irc.git]
/
IRC.icl
diff --git
a/IRC.icl
b/IRC.icl
index
9b6b134
..
645edbd
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))
@@
-39,7
+40,7
@@
instance toString IRCCommands where
//PASS String
//PING [String]
//PONG [String]
//PASS String
//PING [String]
//PONG [String]
- PRIVMSG dest msg = join " " ["PRIVMSG", dest, msg]
+ PRIVMSG dest msg = join " " ["PRIVMSG", dest,
":"+++
msg]
QUIT msg = join " " ["QUIT":maybeToList msg]
//REHASH
//RESTART
QUIT msg = join " " ["QUIT":maybeToList msg]
//REHASH
//RESTART
@@
-54,7
+55,7
@@
instance toString IRCCommands where
//TIME (Maybe String)
//TOPIC String (Maybe String)
//TRACE (Maybe String)
//TIME (Maybe String)
//TOPIC String (Maybe String)
//TRACE (Maybe String)
- USER login mode rn = join " " ["USER", login, toString mode, "*", ":"
,
rn]
+ USER login mode rn = join " " ["USER", login, toString mode, "*", ":"
+++
rn]
//USERHOST [String]
//USERS (Maybe String)
//VERSION (Maybe String)
//USERHOST [String]
//USERS (Maybe String)
//VERSION (Maybe String)