--- a/gameServer/CoreTypes.hs Fri Aug 22 00:37:26 2014 +0400
+++ b/gameServer/CoreTypes.hs Fri Aug 22 00:57:07 2014 +0400
@@ -171,7 +171,8 @@
teamsInGameNumber :: Int,
allPlayersHaveRegisteredAccounts :: !Bool,
giMapParams :: Map.Map B.ByteString B.ByteString,
- giParams :: Map.Map B.ByteString [B.ByteString]
+ giParams :: Map.Map B.ByteString [B.ByteString],
+ isPaused :: Bool
} deriving (Show, Read)
newGameInfo :: [TeamInfo]
@@ -179,6 +180,7 @@
-> Bool
-> Map.Map ByteString ByteString
-> Map.Map ByteString [ByteString]
+ -> Bool
-> GameInfo
newGameInfo =
GameInfo
@@ -298,6 +300,7 @@
data VoteType = VoteKick B.ByteString
| VoteMap B.ByteString
+ | VotePause
newVoting :: VoteType -> Voting