diff -r ce3ccc45d790 -r 5012e1f9e893 gameServer/CoreTypes.hs
--- 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