changeset 10814 | 810ac1d21fd0 |
parent 10786 | 712283ed86e0 |
child 10944 | c4b3440eeac6 |
--- a/gameServer/Actions.hs Sat Jan 31 23:14:12 2015 -0500 +++ b/gameServer/Actions.hs Sat Feb 07 00:19:54 2015 +0300 @@ -356,6 +356,9 @@ ) joinedMidGame ) ri + rteams <- io $ room'sM rnc (L.nub . rejoinedTeams . fromJust . gameInfo) ri + mapM_ (processAction . RemoveTeam) rteams + mapM_ processAction $ ( SaveReplay : ModifyRoom