repositories
/
cloogle-irc.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
57707b6
)
fix problem with : for longer strings
author
Mart Lubbers
<mart@martlubbers.net>
Sun, 5 Mar 2017 12:42:54 +0000
(13:42 +0100)
committer
Mart Lubbers
<mart@martlubbers.net>
Sun, 5 Mar 2017 12:42:54 +0000
(13:42 +0100)
IRC.icl
patch
|
blob
|
history
diff --git
a/IRC.icl
b/IRC.icl
index
8ab91db
..
645edbd
100644
(file)
--- a/
IRC.icl
+++ b/
IRC.icl
@@
-40,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
@@
-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)