Move the almost_equals function into the Comparisons module.

[spline3.git] / src / Comparisons.hs

diff --git a/src/Comparisons.hs b/src/Comparisons.hs
new file mode 100644 (file)
index 0000000..f4462a0
--- /dev/null
+++ b/src/Comparisons.hs
@@ -0,0 +1,10 @@
+module Comparisons
+where
+
+
+almost_equals :: Double -> Double -> Bool
+almost_equals x y = (abs (x - y)) < 0.0001
+
+infix 4 ~=
+(~=) :: Double -> Double -> Bool
+(~=) = almost_equals