--- 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]
--- 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,