Fix translatability of "unknown command" server message
authorWuzzy <Wuzzy2@mail.ru>
Sat, 25 Aug 2018 18:04:06 +0200
changeset 13693 af208acaada6
parent 13692 70c8feb81d35
child 13694 91fe09213abc
Fix translatability of "unknown command" server message
gameServer/HWProtoCore.hs
--- a/gameServer/HWProtoCore.hs	Sat Aug 25 17:43:29 2018 +0200
+++ b/gameServer/HWProtoCore.hs	Sat Aug 25 18:04:06 2018 +0200
@@ -107,7 +107,7 @@
                 , AnswerClients [sendChan cl] ["CHAT", "[server]", "'Registered only' state toggled"]
                 ]
         h "SUPER_POWER" _ = serverAdminOnly $ return [ModifyClient (\c -> c{hasSuperPower = True})]
-        h c p = return [Warning $ B.concat [ loc "Unknown command:", " /", c, " ", p, "<br/>", loc "Say '/help' in chat for a list of commands" ]]
+        h _ _ = return [Warning $ loc "Unknown command or invalid parameters. Say '/help' in chat for a list of commands." ]
 
 
         extractParameters p = let (a, b) = B.break (== ' ') p in (upperCase a, B.dropWhile (== ' ') b)