17 lines
636 B
Haskell
17 lines
636 B
Haskell
|
module Types.StateData where
|
||
|
|
|
||
|
|
import Data.Matrix
|
||
|
|
|
||
|
|
import Types.ReachPoint
|
||
|
|
import Types.Map
|
||
|
|
import Types.ImgId
|
||
|
|
|
||
|
|
data StateData
|
||
|
|
= None
|
||
|
|
| MenuData
|
||
|
|
{ mapMat :: Matrix TileState
|
||
|
|
, initCoords :: (Int, Int)
|
||
|
|
, imgMat :: Matrix (Maybe ImgId)
|
||
|
|
, reachPoints :: [ReachPoint]
|
||
|
|
}
|