# HG changeset patch
# User Wuzzy <Wuzzy2@mail.ru>
# Date 1538657697 -7200
# Node ID 28a86816dc01ab318df75cebec8a647a279bd3f2
# Parent  07b3dacd00f82472f5332c88f27ae9dfa3f8c3c2
gameServer: Handle empty chat command (partially)

diff -r 07b3dacd00f8 -r 28a86816dc01 gameServer/HWProtoCore.hs
--- a/gameServer/HWProtoCore.hs	Thu Oct 04 14:36:42 2018 +0200
+++ b/gameServer/HWProtoCore.hs	Thu Oct 04 14:54:57 2018 +0200
@@ -65,6 +65,10 @@
         else
         handleCmd_NotEntered cmd
 
+unknownCmdWarningText :: B.ByteString
+unknownCmdWarningText = loc "Unknown command or invalid parameters. Say '/help' in chat for a list of commands."
+
+handleCmd_loggedin ["CMD"] = return [Warning unknownCmdWarningText]
 
 handleCmd_loggedin ["CMD", parameters] = uncurry h $ extractParameters parameters
     where
@@ -111,7 +115,7 @@
                 [ModifyClient (\c -> c{hasSuperPower = True})
                 , AnswerClients [sendChan cl] ["CHAT", nickServer, loc "Super power activated."]
                 ]
-        h _ _ = return [Warning $ loc "Unknown command or invalid parameters. Say '/help' in chat for a list of commands." ]
+        h _ _ = return [Warning unknownCmdWarningText]
 
 
         extractParameters p = let (a, b) = B.break (== ' ') p in (upperCase a, B.dropWhile (== ' ') b)