changeset 9381 | 90f9d8046a86 |
parent 9193 | 1394137589e4 |
child 9399 | 1767c92eff37 |
--- a/gameServer/Actions.hs Sat Jul 27 04:20:49 2013 +0200 +++ b/gameServer/Actions.hs Thu Aug 01 23:52:54 2013 +0400 @@ -346,7 +346,8 @@ ModifyRoom (\r -> r{ gameInfo = liftM (\g -> g{ teamsInGameNumber = teamsInGameNumber g - 1 - , roundMsgs = rmTeamMsg : roundMsgs g + , roundMsgs = (if isJust $ lastFilteredTimedMsg g then (:) (fromJust $ lastFilteredTimedMsg g) else id) + $ rmTeamMsg : roundMsgs g }) $ gameInfo r }) ]