tracer/src/Types/StateData.hs

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]                                                  
    }
  deriving (Eq)