equal
deleted
inserted
replaced
169 leftTeams :: [B.ByteString], |
169 leftTeams :: [B.ByteString], |
170 teamsAtStart :: [TeamInfo], |
170 teamsAtStart :: [TeamInfo], |
171 teamsInGameNumber :: Int, |
171 teamsInGameNumber :: Int, |
172 allPlayersHaveRegisteredAccounts :: !Bool, |
172 allPlayersHaveRegisteredAccounts :: !Bool, |
173 giMapParams :: Map.Map B.ByteString B.ByteString, |
173 giMapParams :: Map.Map B.ByteString B.ByteString, |
174 giParams :: Map.Map B.ByteString [B.ByteString] |
174 giParams :: Map.Map B.ByteString [B.ByteString], |
|
175 isPaused :: Bool |
175 } deriving (Show, Read) |
176 } deriving (Show, Read) |
176 |
177 |
177 newGameInfo :: [TeamInfo] |
178 newGameInfo :: [TeamInfo] |
178 -> Int |
179 -> Int |
179 -> Bool |
180 -> Bool |
180 -> Map.Map ByteString ByteString |
181 -> Map.Map ByteString ByteString |
181 -> Map.Map ByteString [ByteString] |
182 -> Map.Map ByteString [ByteString] |
|
183 -> Bool |
182 -> GameInfo |
184 -> GameInfo |
183 newGameInfo = |
185 newGameInfo = |
184 GameInfo |
186 GameInfo |
185 [] |
187 [] |
186 Nothing |
188 Nothing |
296 } |
298 } |
297 |
299 |
298 |
300 |
299 data VoteType = VoteKick B.ByteString |
301 data VoteType = VoteKick B.ByteString |
300 | VoteMap B.ByteString |
302 | VoteMap B.ByteString |
|
303 | VotePause |
301 |
304 |
302 |
305 |
303 newVoting :: VoteType -> Voting |
306 newVoting :: VoteType -> Voting |
304 newVoting = Voting 2 [] [] |
307 newVoting = Voting 2 [] [] |
305 |
308 |