# HG changeset patch
# User unc0rr
# Date 1351687951 -14400
# Node ID ba735701ce7fa5c50c582aa773e2f3210bb00417
# Parent  5e7c0810f365eed732ef3b1a8ff83f0fe348ff96
Clear in-game flag when user joins room

diff -r 5e7c0810f365 -r ba735701ce7f gameServer/Actions.hs
--- a/gameServer/Actions.hs	Tue Oct 30 12:50:50 2012 +0100
+++ b/gameServer/Actions.hs	Wed Oct 31 16:52:31 2012 +0400
@@ -211,7 +211,7 @@
     rnc <- gets roomsClients
 
     io $ do
-        modifyClient rnc (\cl -> cl{teamsInGame = 0, isReady = False, isMaster = False}) ci
+        modifyClient rnc (\cl -> cl{teamsInGame = 0, isReady = False, isMaster = False, isInGame = False}) ci
         modifyRoom rnc (\r -> r{playersIn = playersIn r + 1}) ri
         moveClientToRoom rnc ri ci