equal
deleted
inserted
replaced
60 difficulty :: Int, |
60 difficulty :: Int, |
61 hhnum :: Int, |
61 hhnum :: Int, |
62 hedgehogs :: [HedgehogInfo] |
62 hedgehogs :: [HedgehogInfo] |
63 } |
63 } |
64 deriving (Show, Read) |
64 deriving (Show, Read) |
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 leftTeams :: [B.ByteString], |
72 teamsInGameNumber :: Int, |
72 teamsInGameNumber :: Int, |
73 allPlayersHaveRegisteredAccounts :: Bool, |
73 allPlayersHaveRegisteredAccounts :: Bool, |
74 giMapParams :: Map.Map B.ByteString B.ByteString, |
74 giMapParams :: Map.Map B.ByteString B.ByteString, |
75 giParams :: Map.Map B.ByteString [B.ByteString] |
75 giParams :: Map.Map B.ByteString [B.ByteString] |
76 } deriving (Show, Read) |
76 } deriving (Show, Read) |
77 |
77 |
78 --newGameInfo :: -> GameInfo |
78 --newGameInfo :: -> GameInfo |
79 newGameInfo = |
79 newGameInfo = |
80 GameInfo |
80 GameInfo |
81 Data.Sequence.empty |
81 Data.Sequence.empty |
82 [] |
82 [] |
83 |
83 |
84 data RoomInfo = |
84 data RoomInfo = |