# HG changeset patch # User nemo # Date 1352066754 18000 # Node ID e3ffeb3d938985ea821c951bfc9a319e26467efb # Parent ccaa746bd567d431f003987d7d338fa5243a09f0# Parent 0cf5277fef1af7fca489b4078938419047caaaba oups diff -r ccaa746bd567 -r e3ffeb3d9389 gameServer/Actions.hs --- a/gameServer/Actions.hs Sun Nov 04 17:05:15 2012 -0500 +++ b/gameServer/Actions.hs Sun Nov 04 17:05:54 2012 -0500 @@ -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 ccaa746bd567 -r e3ffeb3d9389 gameServer/HWProtoInRoomState.hs --- a/gameServer/HWProtoInRoomState.hs Sun Nov 04 17:05:15 2012 -0500 +++ b/gameServer/HWProtoInRoomState.hs Sun Nov 04 17:05:54 2012 -0500 @@ -107,7 +107,6 @@ [ProtocolError "Not team owner!"] else [RemoveTeam tName, - SendUpdateOnThisRoom, ModifyClient (\c -> c{ teamsInGame = teamsInGame c - 1,