Fix testsuite failure on hurd-i386.

expected: 5.0 but got: 4.999999999999999
ekmett · Apr 25, 2014 · 1a59eb2 · 1a59eb2
1 parent 330109e
commit 1a59eb2
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Numeric/Lens.hs b/src/Numeric/Lens.hs
@@ -161,8 +161,8 @@ dividing n = iso (/n) (*n)
 --
 -- Note: This errors for n = 0
 --
--- >>> au (exponentiating 2._Unwrapping Sum) (foldMapOf each) (3,4)
--- 5.0
+-- >>> au (exponentiating 2._Unwrapping Sum) (foldMapOf each) (3,4) == 5
+-- True
 exponentiating :: (Floating a, Eq a) => a -> Iso' a a
 exponentiating 0 = error "Numeric.Lens.exponentiating: exponent 0"
 exponentiating n = iso (**n) (**recip n)