26 lines
395 B
Haskell
26 lines
395 B
Haskell
module Dodge.Data.CardinalPoint where
|
|
|
|
data CardinalPoint
|
|
= North
|
|
| East
|
|
| South
|
|
| West
|
|
deriving (Eq, Ord, Show, Bounded, Enum)
|
|
|
|
data CardinalEightPoint
|
|
= North8
|
|
| NorthEast8
|
|
| East8
|
|
| SouthEast8
|
|
| South8
|
|
| SouthWest8
|
|
| West8
|
|
| NorthWest8
|
|
deriving (Eq, Ord, Show, Bounded, Enum)
|
|
|
|
data CardinalCover
|
|
= NSEW
|
|
| NSE
|
|
| NSW
|
|
| NS
|