--- a/gameServer/CoreTypes.hs Sat Nov 19 15:36:33 2011 -0500
+++ b/gameServer/CoreTypes.hs Sun Nov 20 19:45:40 2011 +0300
@@ -79,7 +79,6 @@
GameInfo
Data.Sequence.empty
[]
- []
data RoomInfo =
RoomInfo
--- a/gameServer/HWProtoInRoomState.hs Sat Nov 19 15:36:33 2011 -0500
+++ b/gameServer/HWProtoInRoomState.hs Sun Nov 20 19:45:40 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"]