Add XInfinity datatype

src/Dodge/Data/CardinalPoint.hs

@@ -1,4 +1,6 @@
+{-# LANGUAGE TemplateHaskell #-}
 module Dodge.Data.CardinalPoint where
+import Control.Lens
 
 data CardinalPoint
     = North
@@ -24,5 +26,7 @@ data CardinalCover
     | NSW
     | NS
 
-data AboveBelow = Above | Below
-    deriving (Eq, Ord, Show, Bounded, Enum)
+data XInfinity a = NegInf | NonInf a | PosInf
+    deriving (Eq, Ord, Show)
+
+makeLenses ''XInfinity