-- | 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
-- | 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