Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Prepend "User quit: " to client-side quit messages
authorunc0rr
Sun, 20 Nov 2016 15:20:08 +0100
changeset 11974 1d07f4ceb8c6
parent 11973 de1b616fd5e6
child 11975 c52d35c859e8
Prepend "User quit: " to client-side quit messages Tested and commited by sheepluva
gameServer/HWProtoCore.hs file | annotate | diff | comparison | revisions 
--- 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
hedgewars