# HG changeset patch
# User unc0rr
# Date 1479651608 -3600
# Node ID 1d07f4ceb8c65e05b7c93baa5e13ee577b582d69
# Parent  de1b616fd5e628fba74743d8752f0c639edd78a8
Prepend "User quit: " to client-side quit messages

Tested and commited by sheepluva

diff -r de1b616fd5e6 -r 1d07f4ceb8c6 gameServer/HWProtoCore.hs
--- 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