Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Better place for SendUpdateOnThisRoom
authorunc0rr
Sun, 04 Nov 2012 21:28:03 +0400
changeset 7947 0cf5277fef1a
parent 7945 4006d77e1a28
child 7951 c64c0b413ff7
child 7952 e3ffeb3d9389
Better place for SendUpdateOnThisRoom
gameServer/Actions.hs file | annotate | diff | comparison | revisions
gameServer/HWProtoInRoomState.hs file | annotate | diff | comparison | revisions 
--- 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]
 
--- 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,
hedgewars