142 

   142 

   143 data GameInfo =

   143 data GameInfo =

   144     GameInfo

   144     GameInfo

   145     {

   145     {

   146         roundMsgs :: [B.ByteString],

   146         roundMsgs :: [B.ByteString],

   147         leftTeams :: [B.ByteString],

   148         leftTeams :: [B.ByteString],

   148         teamsAtStart :: [TeamInfo],

   149         teamsAtStart :: [TeamInfo],

   149         teamsInGameNumber :: Int,

   150         teamsInGameNumber :: Int,

   150         allPlayersHaveRegisteredAccounts :: !Bool,

   151         allPlayersHaveRegisteredAccounts :: !Bool,

   151         giMapParams :: Map.Map B.ByteString B.ByteString,

   152         giMapParams :: Map.Map B.ByteString B.ByteString,

   159                 -> Map.Map ByteString [ByteString]

   160                 -> Map.Map ByteString [ByteString]

   160                 -> GameInfo

   161                 -> GameInfo

   161 newGameInfo =

   162 newGameInfo =

   162     GameInfo

   163     GameInfo

   163         []

   164         []

   164         []

   166         []

   165 

   167 

   166 data RoomInfo =

   168 data RoomInfo =

   167     RoomInfo

   169     RoomInfo

   168     {

   170     {