From 30a1a03f846f3196f838a18a2bb6b57b1d6dde7e Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Wed, 3 Feb 1999 16:53:16 +0000
Subject: [PATCH] [project @ 1999-02-03 16:53:16 by simonm] Fix accidental
 defaulting to Integer in magnitude.

---
 ghc/lib/std/Complex.lhs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/lib/std/Complex.lhs b/ghc/lib/std/Complex.lhs
index f92144e340da..53f0f53681db 100644
--- a/ghc/lib/std/Complex.lhs
+++ b/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
 
-- 
GitLab