module Waterfall.Internal.NearZero 
( confusion
, nearZero
) where

confusion :: Double
confusion :: Double
confusion = Double
1e-7

nearZero :: Double -> Bool
nearZero :: Double -> Bool
nearZero = (Double -> Double -> Bool
forall a. Ord a => a -> a -> Bool
<= Double
confusion) (Double -> Bool) -> (Double -> Double) -> Double -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Double -> Double
forall a. Num a => a -> a
abs