--- 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