diff --git a/src/Test.hs b/src/Test.hs index c3e856d..eb5b4d7 100644 --- a/src/Test.hs +++ b/src/Test.hs @@ -107,7 +107,6 @@ loadMapFork ud future progress = do Prelude.map (\a -> if a == Just ImgEmpty then Nothing else a) (M.toList inter) - , initCoords = (0, 500) , reachPoints = rps }) diff --git a/src/Types/StateData.hs b/src/Types/StateData.hs index 6df8751..6bf8842 100644 --- a/src/Types/StateData.hs +++ b/src/Types/StateData.hs @@ -18,10 +18,9 @@ data StateData { loadAssetImages :: Map ImgId Image , loadAssetAnims :: Map AnimId Animation } - | MenuData - { mapMat :: Matrix TileState - , initCoords :: (Int, Int) - , imgMat :: Matrix (Maybe ImgId) - , reachPoints :: [ReachPoint] + | MenuData + { mapMat :: Matrix TileState + , imgMat :: Matrix (Maybe ImgId) + , reachPoints :: [ReachPoint] } deriving (Eq)