gameServer/Actions.hs
changeset 8514 896b283f41a2
parent 8510 0a39b2f9c748
child 8519 98e2dbdda8c0
--- a/gameServer/Actions.hs	Mon Feb 18 22:21:31 2013 +0400
+++ b/gameServer/Actions.hs	Mon Feb 18 22:47:42 2013 +0400
@@ -220,7 +220,7 @@
     rnc <- gets roomsClients
 
     io $ do
-        modifyClient rnc (\cl -> cl{teamsInGame = 0, isReady = False, isMaster = False, isInGame = False}) ci
+        modifyClient rnc (\cl -> cl{teamsInGame = 0, isReady = False, isMaster = False, isInGame = False, clientClan = Nothing}) ci
         modifyRoom rnc (\r -> r{playersIn = playersIn r + 1}) ri
         moveClientToRoom rnc ri ci