diff --git a/src/Dodge/Data/CardinalPoint.hs b/src/Dodge/Data/CardinalPoint.hs
index fbf9d01bb..9d0dc11d8 100644
--- a/src/Dodge/Data/CardinalPoint.hs
+++ b/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