tracer/src/Types/StateData.hs
2018-06-28 21:07:58 +02:00

28 lines
523 B
Haskell

module Types.StateData where
import Data.Matrix
import Data.Map
import Data.Text
import NanoVG
import Types.ReachPoint
import Types.Map
import Types.ImgId
import Types.FontId
import Types.Animation
data StateData
= None
| LoadData
{ loadAssetImages :: Map ImgId Image
, loadAssetAnims :: Map AnimId Animation
}
| MainData
{ mapMat :: Matrix TileState
, imgMat :: Matrix (Maybe ImgId)
, reachPoints :: [ReachPoint]
, mmImgMat :: Matrix (Maybe ImgId)
}
deriving (Eq)