Prepend "User quit: " to client-side quit messages
authorunc0rr
Sun, 20 Nov 2016 15:20:08 +0100
changeset 11979 1d07f4ceb8c6
parent 11978 de1b616fd5e6
child 11980 c52d35c859e8
Prepend "User quit: " to client-side quit messages Tested and commited by sheepluva
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