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.
Fix empty teams list when trying to spectate 0.9.17
authorunc0rr
Sun, 20 Nov 2011 19:45:03 +0300
branch0.9.17
changeset 6403 477034740077
parent 6402 4670f003f91b
child 6405 715ce0211d93
child 6407 f63b2330147a
Fix empty teams list when trying to spectate
gameServer/CoreTypes.hs file | annotate | diff | comparison | revisions
gameServer/HWProtoInRoomState.hs file | annotate | diff | comparison | revisions 
--- a/gameServer/CoreTypes.hs	Sat Nov 19 15:34:38 2011 -0500
+++ b/gameServer/CoreTypes.hs	Sun Nov 20 19:45:03 2011 +0300
@@ -79,7 +79,6 @@
     GameInfo
         Data.Sequence.empty
         []
-        []
 
 data RoomInfo =
     RoomInfo
--- a/gameServer/HWProtoInRoomState.hs	Sat Nov 19 15:34:38 2011 -0500
+++ b/gameServer/HWProtoInRoomState.hs	Sun Nov 20 19:45:03 2011 +0300
@@ -179,7 +179,7 @@
             return [
                 ModifyRoom
                     (\r -> r{
-                        gameInfo = Just $ newGameInfo allPlayersRegistered (mapParams rm) (params rm)
+                        gameInfo = Just $ newGameInfo (teams rm) allPlayersRegistered (mapParams rm) (params rm)
                         }
                     ),
                 AnswerClients chans ["RUN_GAME"]
hedgewars