equal
deleted
inserted
replaced
344 mapM_ processAction [ |
344 mapM_ processAction [ |
345 AnswerClients chans ["EM", rmTeamMsg], |
345 AnswerClients chans ["EM", rmTeamMsg], |
346 ModifyRoom (\r -> r{ |
346 ModifyRoom (\r -> r{ |
347 gameInfo = liftM (\g -> g{ |
347 gameInfo = liftM (\g -> g{ |
348 teamsInGameNumber = teamsInGameNumber g - 1 |
348 teamsInGameNumber = teamsInGameNumber g - 1 |
349 , roundMsgs = rmTeamMsg : roundMsgs g |
349 , roundMsgs = (if isJust $ lastFilteredTimedMsg g then (:) (fromJust $ lastFilteredTimedMsg g) else id) |
|
350 $ rmTeamMsg : roundMsgs g |
350 }) $ gameInfo r |
351 }) $ gameInfo r |
351 }) |
352 }) |
352 ] |
353 ] |
353 |
354 |
354 rnc <- gets roomsClients |
355 rnc <- gets roomsClients |