gameServer/HWProtoCore.hs
changeset 13846 d8e606cf8ff5
parent 13845 1a1fb597da8f
child 14118 589a752c01ca
--- a/gameServer/HWProtoCore.hs	Fri Oct 05 04:57:03 2018 +0200
+++ b/gameServer/HWProtoCore.hs	Fri Oct 05 13:37:49 2018 +0200
@@ -41,10 +41,9 @@
 
 handleCmd ("QUIT" : xs) = return [ByeClient msg]
     where
-        -- "User quit: " is a special string parsed by frontend, do not localize.
-        -- It denotes when the /quit command has been used with message parameter.
-        -- "bye" is also a special string.
-        msg = if not $ null xs then "User quit: " `B.append` (head xs) else "bye"
+        -- "bye" is a special string (do not translate!) when the user quits manually,
+        -- otherwise there will be an additional server message
+        msg = if not $ null xs then (head xs) else "bye"
 
 
 handleCmd ["PONG"] = do
@@ -110,8 +109,7 @@
         h "RESTART_SERVER" "YES" = handleCmd_lobbyOnly ["RESTART_SERVER"]
 
         -- room and lobby commands
-        h "QUIT" m | not $ B.null m = handleCmd ["QUIT", m]
-                   | otherwise = handleCmd ["QUIT"]
+        h "QUIT" _ = handleCmd ["QUIT"]
         h "RND" p = handleCmd ("RND" : B.words p)
         h "GLOBAL" p = serverAdminOnly $ do
             rnc <- liftM snd ask