repositories
/
cloogle-irc.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
better code, ping response
[cloogle-irc.git]
/
IRC.icl
diff --git
a/IRC.icl
b/IRC.icl
index
8ab91db
..
098c759
100644
(file)
--- a/
IRC.icl
+++ b/
IRC.icl
@@
-38,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
@@
-55,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)