--- 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