gameServer/Actions.hs
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
             })
         ]