[project @ 1999-02-03 16:53:16 by simonm]

Fix accidental defaulting to Integer in magnitude.

ghc/lib/std/Complex.lhs

@@ -71,7 +71,7 @@ polar z		 =  (magnitude z, phase z)
 
 magnitude :: (RealFloat a) => Complex a -> a
 magnitude (x:+y) =  scaleFloat k
-		     (sqrt ((scaleFloat mk x)^2 + (scaleFloat mk y)^2))
+		     (sqrt ((scaleFloat mk x)^(2::Int) + (scaleFloat mk y)^(2::Int)))
 		    where k  = max (exponent x) (exponent y)
 		          mk = - k