diff -r 38dc8445d7a7 -r 810ac1d21fd0 gameServer/Actions.hs --- 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