X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FComparisons.hs;h=3bf4e246bcfba473634b255fb1befb8187a84b8f;hb=e0bc55b3ed14d49a1745d71cd8dcd0fe58cc7867;hp=4a8144469415668327567717239844a4b1c85a22;hpb=d1ee387490ef0ada8781f4bf81f82cce7f0006ba;p=spline3.git

diff --git a/src/Comparisons.hs b/src/Comparisons.hs
index 4a81444..3bf4e24 100644
--- a/src/Comparisons.hs
+++ b/src/Comparisons.hs
@@ -1,5 +1,14 @@
 -- | Functions for comparing 'Double' values.
-module Comparisons
+module Comparisons (
+  (~=),
+  (~~=),
+  almost_equals,
+  kinda_equals,
+  nearly_equals,
+  nearly_ge,
+  non_very_positive_entries,
+  very_positive,
+  )
 where
 
 -- | epsilon is the value that will be used in all tests that require
@@ -10,7 +19,7 @@ epsilon = 0.0001
 
 -- | A tiny margin of error.
 theta :: Double
-theta = 0.00000000000001
+theta = 0.0000000000001
 
 -- | x almost equals y if x is within 'theta' of y.
 nearly_equals :: Double -> Double -> Bool