Fix accidental defaulting to Integer in magnitude.
magnitude :: (RealFloat a) => Complex a -> a
magnitude (x:+y) = scaleFloat k
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
where k = max (exponent x) (exponent y)
mk = - k