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