--- a/gameServer/CoreTypes.hs	Wed Oct 17 23:33:33 2012 +0400
+++ b/gameServer/CoreTypes.hs	Wed Oct 17 23:50:28 2012 +0400
@@ -76,7 +76,12 @@
         giParams :: Map.Map B.ByteString [B.ByteString]
     } deriving (Show, Read)
 
---newGameInfo ::  -> GameInfo
+newGameInfo :: [TeamInfo]
+                -> Int
+                -> Bool
+                -> Map.Map ByteString ByteString
+                -> Map.Map ByteString [ByteString]
+                -> GameInfo
 newGameInfo =
     GameInfo
         Data.Sequence.empty