Integrated CommandLine parsing library.

1 files changed, 23 insertions, 0 deletions

diff --git a/lib/SuperOrd.hs b/lib/SuperOrd.hs
new file mode 100644
index 0000000..258a823
--- /dev/null
+++ b/lib/SuperOrd.hs
@@ -0,0 +1,23 @@
+module SuperOrd where
+
+data SuperOrd a
+        = NegativeInfinity
+        | SuperOrd { superApprox        :: !a
+                   , superCompareApprox :: !Ordering
+                   }
+        | PositiveInfinity
+  deriving (Eq, Ord, Show)
+
+instance Bounded (SuperOrd a) where
+    minBound = NegativeInfinity
+    maxBound = PositiveInfinity
+
+exactly :: a -> SuperOrd a
+exactly a = SuperOrd a EQ
+
+lessThan :: a -> SuperOrd a
+lessThan a = SuperOrd a LT
+
+greaterThan :: a -> SuperOrd a
+greaterThan a = SuperOrd a GT
+