diff -r 70c8feb81d35 -r af208acaada6 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, "
", 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)