gameServer/HWProtoCore.hs
changeset 11974 1d07f4ceb8c6
parent 11575 db7743e2fad1
child 13514 da59012fbd7a
--- a/gameServer/HWProtoCore.hs	Sun Nov 20 05:11:19 2016 +0100
+++ b/gameServer/HWProtoCore.hs	Sun Nov 20 15:20:08 2016 +0100
@@ -40,7 +40,7 @@
 
 handleCmd ("QUIT" : xs) = return [ByeClient msg]
     where
-        msg = if not $ null xs then head xs else loc "bye"
+        msg = if not $ null xs then "User quit: " `B.append` (head xs) else loc "bye"
 
 
 handleCmd ["PONG"] = do