changeset 7766 | 98edc0724a28 |
parent 7757 | c20e6c80e249 |
child 7862 | bd76ca40db68 |
--- 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