equal
deleted
inserted
replaced
379 mapM_ processAction [ |
379 mapM_ processAction [ |
380 AnswerClients chans ["EM", rmTeamMsg], |
380 AnswerClients chans ["EM", rmTeamMsg], |
381 ModifyRoom (\r -> r{ |
381 ModifyRoom (\r -> r{ |
382 gameInfo = liftM (\g -> g{ |
382 gameInfo = liftM (\g -> g{ |
383 teamsInGameNumber = teamsInGameNumber g - 1 |
383 teamsInGameNumber = teamsInGameNumber g - 1 |
384 , roundMsgs = (if isJust $ lastFilteredTimedMsg g then (:) (fromJust $ lastFilteredTimedMsg g) else id) |
384 , lastFilteredTimedMsg = Nothing |
385 $ rmTeamMsg : roundMsgs g |
385 , roundMsgs = (if isJust $ lastFilteredTimedMsg g then ((:) rmTeamMsg . (:) (fromJust $ lastFilteredTimedMsg g)) else ((:) rmTeamMsg)) |
|
386 $ roundMsgs g |
386 }) $ gameInfo r |
387 }) $ gameInfo r |
387 }) |
388 }) |
388 ] |
389 ] |
389 |
390 |
390 rnc <- gets roomsClients |
391 rnc <- gets roomsClients |