probably a bad test for polarize, but at should at least pass travis/…

…local testing
ekmett · Sep 11, 2012 · 7f2c7e5 · 7f2c7e5
1 parent f752511
commit 7f2c7e5
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Data/Complex/Lens.hs b/src/Data/Complex/Lens.hs
@@ -57,7 +57,8 @@ imaginary f (a :+ b) = (a :+) <$> f b
 -- (1.0,1.5707963267948966)
 --
 -- >>> (1.0,pi)^.from polarize
--- (-1.0) :+ 1.2246467991473532e-16
+-- (-1.0) :+ 1.2246063538223773e-16
+
 polarize :: (RealFloat a, RealFloat b) => Iso (Complex a) (Complex b) (a,a) (b,b)
 polarize = isos polar (uncurry mkPolar)
                 polar (uncurry mkPolar)