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