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