changeset 8401 | 87410ae372f6 |
parent 8396 | 5123eac2f9d6 |
child 8403 | fbc6e7602e05 |
--- a/gameServer/HWProtoCore.hs Fri Jan 18 11:47:23 2013 +0100 +++ b/gameServer/HWProtoCore.hs Sat Jan 19 00:51:28 2013 +0400 @@ -23,7 +23,7 @@ handleCmd ("QUIT" : xs) = return [ByeClient msg] where - msg = if not $ null xs then head xs else "bye" + msg = if not $ null xs then head xs else loc "bye" handleCmd ["PONG"] = do