From 5b95bcbf3bd1afc7fce3f4a5a548ca06ebe511db Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Tue, 26 Aug 2025 10:02:43 +0100
Subject: [PATCH] Add XInfinity datatype

---
 src/Dodge/Data/CardinalPoint.hs | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

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