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
645edbd
..
098c759
100644
(file)
--- a/
IRC.icl
+++ b/
IRC.icl
@@
-38,8
+38,8
@@
instance toString IRCCommands where
//OPER String String
//PART [String]
//PASS String
//OPER String String
//PART [String]
//PASS String
-
//PING [String
]
-
//PONG [String
]
+
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
PRIVMSG dest msg = join " " ["PRIVMSG", dest, ":"+++msg]
QUIT msg = join " " ["QUIT":maybeToList msg]
//REHASH