# HG changeset patch # User unc0rr # Date 1352050083 -14400 # Node ID 0cf5277fef1af7fca489b4078938419047caaaba # Parent 4006d77e1a280c1ae48b3f05846e72c83ea0fb82 Better place for SendUpdateOnThisRoom 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] diff -r 4006d77e1a28 -r 0cf5277fef1a gameServer/HWProtoInRoomState.hs --- a/gameServer/HWProtoInRoomState.hs Sat Nov 03 23:28:42 2012 +0400 +++ b/gameServer/HWProtoInRoomState.hs Sun Nov 04 21:28:03 2012 +0400 @@ -107,7 +107,6 @@ [ProtocolError "Not team owner!"] else [RemoveTeam tName, - SendUpdateOnThisRoom, ModifyClient (\c -> c{ teamsInGame = teamsInGame c - 1,