gameServer/CoreTypes.hs
changeset 7126 8daa5c8e84c0
parent 7124 cfee05712896
child 7321 57bd4f201401
equal deleted inserted replaced
7124:cfee05712896 7126:8daa5c8e84c0
    65     
    65     
    66 data GameInfo =
    66 data GameInfo =
    67     GameInfo
    67     GameInfo
    68     {
    68     {
    69         roundMsgs :: Seq B.ByteString,
    69         roundMsgs :: Seq B.ByteString,
       
    70         leftTeams :: [B.ByteString],
    70         teamsAtStart :: [TeamInfo],
    71         teamsAtStart :: [TeamInfo],
    71         teamsInGameNumber :: Int,
    72         teamsInGameNumber :: Int,
    72         allPlayersHaveRegisteredAccounts :: Bool,
    73         allPlayersHaveRegisteredAccounts :: Bool,
    73         giMapParams :: Map.Map B.ByteString B.ByteString,
    74         giMapParams :: Map.Map B.ByteString B.ByteString,
    74         giParams :: Map.Map B.ByteString [B.ByteString]
    75         giParams :: Map.Map B.ByteString [B.ByteString]
    76     
    77     
    77 --newGameInfo ::  -> GameInfo 
    78 --newGameInfo ::  -> GameInfo 
    78 newGameInfo = 
    79 newGameInfo = 
    79     GameInfo
    80     GameInfo
    80         Data.Sequence.empty
    81         Data.Sequence.empty
       
    82         []
    81 
    83 
    82 data RoomInfo =
    84 data RoomInfo =
    83     RoomInfo
    85     RoomInfo
    84     {
    86     {
    85         masterID :: ClientIndex,
    87         masterID :: ClientIndex,