Commit a736b517 authored by Austin Seipp's avatar Austin Seipp

Revert "base: Fix (**) instance for Data.Complex (#8539)"

This broke validate due to name shadowing warnings.

This reverts commit 1f6b1ab4.
parent e7b414a3
......@@ -138,22 +138,6 @@ instance (RealFloat a) => Floating (Complex a) where
where expx = exp x
log z = log (magnitude z) :+ phase z
x ** y = case (x,y) of
(_ , (0:+0)) -> 1 :+ 0
((0:+0), (re:+_))
| re > 0 -> 0 :+ 0
| re < 0 -> inf :+ 0
| otherwise -> nan :+ nan
((re:+im), y)
| (isInfinite re || isInfinite im) -> case y of
(exp_re:+_) | exp_re > 0 -> inf :+ 0
| exp_re < 0 -> 0 :+ 0
| otherwise -> nan :+ nan
(x, y) -> exp (log x * y)
where
inf = 1/0
nan = 0/0
sqrt (0:+0) = 0
sqrt z@(x:+y) = u :+ (if y < 0 then -v else v)
where (u,v) = if x < 0 then (v',u') else (u',v')
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment