equal
deleted
inserted
replaced
381 ] |
381 ] |
382 |
382 |
383 rnc <- gets roomsClients |
383 rnc <- gets roomsClients |
384 ri <- clientRoomA |
384 ri <- clientRoomA |
385 gi <- io $ room'sM rnc gameInfo ri |
385 gi <- io $ room'sM rnc gameInfo ri |
386 when (isJust gi && 0 == teamsInGameNumber (fromJust gi)) $ |
386 when (0 == teamsInGameNumber (fromJust gi)) $ |
387 processAction FinishGame |
387 processAction FinishGame |
388 where |
388 where |
389 rmTeamMsg = toEngineMsg $ 'F' `B.cons` teamName |
389 rmTeamMsg = toEngineMsg $ 'F' `B.cons` teamName |
390 |
390 |
391 |
391 |