X-Git-Url: https://git.martlubbers.net/?p=cloogle-irc.git;a=blobdiff_plain;f=IRC.icl;h=f51bc8a2076b5b0fdb527290f644192e3264a912;hp=0fb408f961fb96fa6953e6b076f4bbb54426eb80;hb=93f0540991809d459cfc3061c88fc07d1cfc948c;hpb=d1b0f20fbd85d85cee19347e7deda5e3a9251906 diff --git a/IRC.icl b/IRC.icl index 0fb408f..f51bc8a 100644 --- a/IRC.icl +++ b/IRC.icl @@ -125,7 +125,7 @@ illegal = ['\x00','\r','\n'] instance toString IRCNumReply where toString m = lpad (toString $ toInt m.irc_reply) 3 '0' <+ " " <+ - m.irc_recipient <+ concat (gIRCPrint{|*|} m.irc_message) + m.irc_recipient <+ " " <+ concat (gIRCPrint{|*|} m.irc_message) instance toString IRCMessage where toString m = maybe "" (\s->either ((<+) ":") id s <+ " ") m.irc_prefix <+ either toString toString m.irc_command