diff -r d90706a2183e -r c4b3440eeac6 gameServer/Actions.hs --- a/gameServer/Actions.hs Tue May 12 22:09:25 2015 +0900 +++ b/gameServer/Actions.hs Tue May 12 22:38:33 2015 +0300 @@ -381,8 +381,9 @@ ModifyRoom (\r -> r{ gameInfo = liftM (\g -> g{ teamsInGameNumber = teamsInGameNumber g - 1 - , roundMsgs = (if isJust $ lastFilteredTimedMsg g then (:) (fromJust $ lastFilteredTimedMsg g) else id) - $ rmTeamMsg : roundMsgs g + , lastFilteredTimedMsg = Nothing + , roundMsgs = (if isJust $ lastFilteredTimedMsg g then ((:) rmTeamMsg . (:) (fromJust $ lastFilteredTimedMsg g)) else ((:) rmTeamMsg)) + $ roundMsgs g }) $ gameInfo r }) ]