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
gameServer/HWProtoInRoomState.hs
--- 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"]