changeset 1929 | 7e6cc8da1c58 |
parent 1928 | 9bf8f4f30d6b |
child 2126 | cb249fa8e3da |
--- a/gameServer/HWProtoCore.hs Fri Mar 27 20:36:50 2009 +0000 +++ b/gameServer/HWProtoCore.hs Sat Mar 28 10:42:00 2009 +0000 @@ -16,11 +16,8 @@ handleCmd clID _ _ ["PING"] = [AnswerThisClient ["PONG"]] handleCmd clID clients rooms ("QUIT" : xs) = - (if isMaster client then [RemoveRoom] else [RemoveClientTeams clID]) - ++ [ByeClient msg] + [ByeClient msg] where - client = clients IntMap.! clID - clientNick = nick client msg = if not $ null xs then head xs else ""