--- a/gameServer/CoreTypes.hs	Tue Sep 27 19:27:19 2011 +0400
+++ b/gameServer/CoreTypes.hs	Thu Sep 29 17:25:25 2011 +0400
@@ -69,10 +69,12 @@
         roundMsgs :: Seq B.ByteString,
         leftTeams :: [B.ByteString],
         teamsAtStart :: [TeamInfo],
-        allPlayersHaveRegisteredAccounts :: Bool
-    }
+        allPlayersHaveRegisteredAccounts :: Bool,
+        giMapParams :: Map.Map B.ByteString B.ByteString,
+        giParams :: Map.Map B.ByteString [B.ByteString]
+    } deriving (Show, Read)
     
-newGameInfo :: Bool -> GameInfo 
+--newGameInfo ::  -> GameInfo 
 newGameInfo = 
     GameInfo
         Data.Sequence.empty