From ddf4cad21f9bd05a526d0440c1612798baa88b71 Mon Sep 17 00:00:00 2001 From: Mart Lubbers Date: Sun, 5 Mar 2017 13:42:54 +0100 Subject: [PATCH] fix problem with : for longer strings --- IRC.icl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/IRC.icl b/IRC.icl index 8ab91db..645edbd 100644 --- a/IRC.icl +++ b/IRC.icl @@ -40,7 +40,7 @@ instance toString IRCCommands where //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 @@ -55,7 +55,7 @@ instance toString IRCCommands where //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) -- 2.20.1