author | unc0rr |
Mon, 10 Jan 2011 18:14:05 +0300 | |
branch | server_refactor |
changeset 4573 | 7e3be7d7eeda |
parent 4571 | 597440c80b8a |
child 4575 | 4eb51a884f11 |
--- a/gameServer/Actions.hs Mon Jan 10 18:12:13 2011 +0300 +++ b/gameServer/Actions.hs Mon Jan 10 18:14:05 2011 +0300 @@ -178,7 +178,7 @@ (Just ci) <- gets clientIndex rnc <- gets roomsClients liftIO $ do - modifyClient rnc (\cl -> cl{teamsInGame = 0, isReady = false, isMaster = false}) ci + modifyClient rnc (\cl -> cl{teamsInGame = 0, isReady = False, isMaster = False}) ci modifyRoom rnc (\r -> r{playersIn = (playersIn r) + 1}) ri liftIO $ moveClientToRoom rnc ri ci