diff -r c4705bca9f21 -r 57bd4f201401 gameServer/CoreTypes.hs --- a/gameServer/CoreTypes.hs Wed Jun 27 16:40:36 2012 -0400 +++ b/gameServer/CoreTypes.hs Thu Jun 28 22:45:06 2012 +0400 @@ -62,7 +62,7 @@ hedgehogs :: [HedgehogInfo] } deriving (Show, Read) - + data GameInfo = GameInfo { @@ -74,9 +74,9 @@ giMapParams :: Map.Map B.ByteString B.ByteString, giParams :: Map.Map B.ByteString [B.ByteString] } deriving (Show, Read) - ---newGameInfo :: -> GameInfo -newGameInfo = + +--newGameInfo :: -> GameInfo +newGameInfo = GameInfo Data.Sequence.empty []