equal
deleted
inserted
replaced
309 chans <- othersChans |
309 chans <- othersChans |
310 mapM_ processAction [ |
310 mapM_ processAction [ |
311 AnswerClients chans ["EM", rmTeamMsg], |
311 AnswerClients chans ["EM", rmTeamMsg], |
312 ModifyRoom (\r -> r{ |
312 ModifyRoom (\r -> r{ |
313 gameInfo = liftM (\g -> g{ |
313 gameInfo = liftM (\g -> g{ |
|
314 teamsInGameNumber = teamsInGameNumber g - 1, |
314 roundMsgs = roundMsgs g Seq.|> rmTeamMsg |
315 roundMsgs = roundMsgs g Seq.|> rmTeamMsg |
315 }) $ gameInfo r |
316 }) $ gameInfo r |
316 }) |
317 }) |
317 ] |
318 ] |
318 where |
319 where |