15 lines
193 B
Haskell
15 lines
193 B
Haskell
module Dodge.Data.CardinalPoint where
|
|
|
|
data CardinalPoint
|
|
= North
|
|
| East
|
|
| South
|
|
| West
|
|
deriving (Eq, Ord, Show)
|
|
|
|
data CardinalCover
|
|
= NSEW
|
|
| NSE
|
|
| NSW
|
|
| NS
|