repositories
/
cloogle-irc.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
improve help
[cloogle-irc.git]
/
IRC.icl
diff --git
a/IRC.icl
b/IRC.icl
index
9b6b134
..
098c759
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))
@@
-37,9
+38,9
@@
instance toString IRCCommands where
//OPER String String
//PART [String]
//PASS String
//OPER String String
//PART [String]
//PASS String
-
//PING [String
]
-
//PONG [String
]
- PRIVMSG dest msg = join " " ["PRIVMSG", dest, msg]
+
PING a mb = join " " ["PING",a:maybeToList mb
]
+
PONG a mb = join " " ["PONG",a:maybeToList mb
]
+ 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)