tracer/src/Types/ReachPoint.hs
2018-04-14 18:43:05 +02:00

15 lines
220 B
Haskell

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