gameServer/CommandHelp.hs
changeset 13697 70c8feb81d35
parent 13514 9ba5e4594322
child 13701 d732ca5dcab9
--- a/gameServer/CommandHelp.hs	Sat Aug 25 12:12:15 2018 +0200
+++ b/gameServer/CommandHelp.hs	Sat Aug 25 17:43:29 2018 +0200
@@ -99,7 +99,7 @@
 
 -- Helper functions for chat command handler
 cmdHelpActionEntry :: [ClientChan] -> B.ByteString -> Action
-cmdHelpActionEntry chan msg = AnswerClients chan [ "CHAT", "[server]", B.concat [ " ", msg ] ]
+cmdHelpActionEntry chan msg = AnswerClients chan [ "CHAT", "[server]", msg ]
 
 cmdHelpActionList :: [ClientChan] -> [B.ByteString] -> [Action]
 cmdHelpActionList chan list = map (cmdHelpActionEntry chan) list