From: sof <unknown>
Date: Tue, 3 Jun 1997 22:27:39 +0000 (+0000)
Subject: [project @ 1997-06-03 22:27:39 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~438
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6c349719bf95c7f0c276d6d799051649d29b3ec8;p=ghc-hetmet.git

[project @ 1997-06-03 22:27:39 by sof]
Wibble
---

diff --git a/ghc/lib/required/Complex.lhs b/ghc/lib/required/Complex.lhs
index 99c60ca..adcdc59 100644
--- a/ghc/lib/required/Complex.lhs
+++ b/ghc/lib/required/Complex.lhs
@@ -68,7 +68,7 @@ phase (x:+y)	 =  atan2 y x
 %*********************************************************
 
 \begin{code}
-instance  (RealFloat a) => Prelude.Num (Complex a)  where
+instance  (RealFloat a) => Num (Complex a)  where
     (x:+y) + (x':+y')	=  (x+x') :+ (y+y')
     (x:+y) - (x':+y')	=  (x-x') :+ (y-y')
     (x:+y) * (x':+y')	=  (x*x'-y*y') :+ (x*y'+y*x')
@@ -87,7 +87,7 @@ instance  (RealFloat a) => Fractional (Complex a)  where
 
     fromRational a	=  fromRational a :+ 0
 
-instance  (Prelude.RealFloat a) => Floating (Complex a)	where
+instance  (RealFloat a) => Floating (Complex a)	where
     pi             =  pi :+ 0
     exp (x:+y)     =  expx * cos y :+ expx * sin y
                       where expx = exp x