nek0/tracer
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

removing clutter

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/Test.hs
View file

@ -107,7 +107,6 @@ loadMapFork ud future progress = do
Prelude.map Prelude.map
(\a -> if a == Just ImgEmpty then Nothing else a) (\a -> if a == Just ImgEmpty then Nothing else a)
(M.toList inter) (M.toList inter)
, initCoords = (0, 500)
, reachPoints = rps , reachPoints = rps
}) })

9
src/Types/StateData.hs
View file

@ -18,10 +18,9 @@ data StateData
{ loadAssetImages :: Map ImgId Image { loadAssetImages :: Map ImgId Image
, loadAssetAnims :: Map AnimId Animation , loadAssetAnims :: Map AnimId Animation
} }
| MenuData | MenuData
{ mapMat :: Matrix TileState { mapMat :: Matrix TileState
, initCoords :: (Int, Int) , imgMat :: Matrix (Maybe ImgId)
, imgMat :: Matrix (Maybe ImgId) , reachPoints :: [ReachPoint]
, reachPoints :: [ReachPoint]
} }
deriving (Eq) deriving (Eq)