diff -r 4006d77e1a28 -r 0cf5277fef1a gameServer/Actions.hs --- a/gameServer/Actions.hs Sat Nov 03 23:28:42 2012 +0400 +++ b/gameServer/Actions.hs Sun Nov 04 21:28:03 2012 +0400 @@ -395,6 +395,7 @@ teams = Prelude.filter (\t -> teamName /= teamname t) $ teams r , gameInfo = liftM (\g -> g{leftTeams = teamName : leftTeams g}) $ gameInfo r }) + : SendUpdateOnThisRoom : AnswerClients chans ["REMOVE_TEAM", teamName] : [SendTeamRemovalMessage teamName | inGame]