15 lines
220 B
Haskell
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)
|