module Types.ReachPoint where import Linear (V2(..)) data ReachPoint = ReachPoint { pointType :: PointType , pointCoord :: V2 Int } deriving (Show) data PointType = RoomExit | Table deriving (Eq, Show)