tracer/src/Types/ReachPoint.hs

24 lines
380 B
Haskell
Raw Normal View History

2018-04-14 16:43:05 +00:00
module Types.ReachPoint where
import Linear (V2(..))
import Types.Direction
2018-04-14 16:43:05 +00:00
data ReachPoint = ReachPoint
{ pointType :: PointType
, pointCoord :: V2 Int
, pointDir :: Direction
, pointClearance :: Word
2018-04-14 16:43:05 +00:00
}
2018-06-07 22:29:46 +00:00
deriving (Eq, Show)
2018-04-14 16:43:05 +00:00
data PointType
= RoomExit
| Table
2018-07-21 04:43:26 +00:00
| Copier
2018-07-30 12:34:46 +00:00
| Computer
2018-07-31 20:59:25 +00:00
| Toilet
2018-08-07 12:04:49 +00:00
| Drink
2018-09-08 12:05:07 +00:00
| Eat
| Elevator
2018-04-14 16:43:05 +00:00
deriving (Eq, Show)