oups
authornemo
Sun, 04 Nov 2012 17:05:54 -0500
changeset 7952 e3ffeb3d9389
parent 7948 ccaa746bd567 (current diff)
parent 7947 0cf5277fef1a (diff)
child 7956 61da79e83330
oups
--- 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,