tracer/src/Types/StateData.hs

18 lines
577 B
Haskell
Raw Normal View History

module Types.StateData where
import Data.Matrix
import Types.ReachPoint
import Types.Map
import Types.ImgId
data StateData
2018-06-07 22:29:46 +00:00
= None
| MenuData
{ mapMat :: Matrix TileState
, initCoords :: (Int, Int)
, imgMat :: Matrix (Maybe ImgId)
, reachPoints :: [ReachPoint]
}
2018-06-07 22:29:46 +00:00
deriving (Eq)