summaryrefslogtreecommitdiff
path: root/libraries/base/Data/Complex.hs
diff options
context:
space:
mode:
Diffstat (limited to 'libraries/base/Data/Complex.hs')
-rw-r--r--libraries/base/Data/Complex.hs16
1 files changed, 0 insertions, 16 deletions
diff --git a/libraries/base/Data/Complex.hs b/libraries/base/Data/Complex.hs
index 756ea67d84..2baa60bd36 100644
--- a/libraries/base/Data/Complex.hs
+++ b/libraries/base/Data/Complex.hs
@@ -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')