Merged pull request patperry#1 from bjornbm/master.

For your pleasure!
Shimuuar · Apr 28, 2011 · 029082f · 029082f
2 parents e5d9e58 + 7e6675a
commit 029082f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Data/AEq.hs b/Data/AEq.hs
@@ -74,7 +74,7 @@ class Eq a => AEq a where
 approxEqIEEE :: (IEEE a) => a -> a -> Bool
 approxEqIEEE x y =
     ( sameSignificandBits x y >= d
-    || (x < epsilon && y < epsilon)
+    || (abs x < epsilon && abs y < epsilon)
     || (isNaN x && isNaN y)
     )
   where
@@ -585,4 +585,4 @@ instance (AEq a, AEq b, AEq c, AEq d, AEq e, AEq f, AEq g, AEq h, AEq i, AEq j,
         && ((~==) n1 n2)
         && ((~==) o1 o2)
         )
-    {-# INLINE (~==) #-}
+    {-# INLINE (~==) #-}