removing clutter

This commit is contained in:
nek0 2018-06-25 23:45:53 +02:00
parent 7a4248671e
commit 5e0c634b61
2 changed files with 4 additions and 6 deletions

View file

@ -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
})

View file

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