changeset 8422 | ec41194d4444 |
parent 8403 | fbc6e7602e05 |
child 8438 | 64ac58abd02a |
--- a/gameServer/Actions.hs Tue Jan 22 00:04:09 2013 +0400 +++ b/gameServer/Actions.hs Tue Jan 22 00:24:44 2013 +0400 @@ -383,7 +383,7 @@ rnc <- gets roomsClients ri <- clientRoomA gi <- io $ room'sM rnc gameInfo ri - when (isJust gi && 0 == teamsInGameNumber (fromJust gi)) $ + when (0 == teamsInGameNumber (fromJust gi)) $ processAction FinishGame where rmTeamMsg = toEngineMsg $ 'F' `B.cons` teamName