module Dodge.Data.CardinalPoint where

data CardinalPoint
    = North
    | East
    | South
    | West
    deriving (Eq, Ord, Show)

data CardinalCover
    = NSEW
    | NSE
    | NSW
    | NS