# HG changeset patch
# User unc0rr
# Date 1321807503 -10800
# Node ID 4770347400776431c7bc9a233350d39741b0b0de
# Parent  4670f003f91b3246665ca0de95fa056d2d2f3f54
Fix empty teams list when trying to spectate

diff -r 4670f003f91b -r 477034740077 gameServer/CoreTypes.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
diff -r 4670f003f91b -r 477034740077 gameServer/HWProtoInRoomState.hs
--- 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"]