gameServer/Actions.hs
changeset 10816 37410518628e
parent 10814 810ac1d21fd0
child 10944 c4b3440eeac6
--- a/gameServer/Actions.hs	Fri Feb 06 16:08:02 2015 +0300
+++ b/gameServer/Actions.hs	Sat Feb 07 23:25:33 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