[commit: ghc] master: Revert "base: Fix (**) instance for Data.Complex (#8539)" (a736b51)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/a736b517bddaf5271ab7a0989787b120324b19f6/ghc

>---------------------------------------------------------------

commit a736b517bddaf5271ab7a0989787b120324b19f6
Author: Austin Seipp <austin at well-typed.com>
Date:   Tue Nov 18 13:12:12 2014 -0600

    Revert "base: Fix (**) instance for Data.Complex (#8539)"
    
    This broke validate due to name shadowing warnings.
    
    This reverts commit 1f6b1ab4b6d7203481bfaf374b014972f7756fb2.


>---------------------------------------------------------------

a736b517bddaf5271ab7a0989787b120324b19f6
 libraries/base/Data/Complex.hs | 16 ----------------
 1 file changed, 16 deletions(-)

diff --git a/libraries/base/Data/Complex.hs b/libraries/base/Data/Complex.hs
index 756ea67..2baa60b 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')