projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
a28fa9b
)
[project @ 1997-06-03 22:27:39 by sof]
author
sof
<unknown>
Tue, 3 Jun 1997 22:27:39 +0000
(22:27 +0000)
committer
sof
<unknown>
Tue, 3 Jun 1997 22:27:39 +0000
(22:27 +0000)
Wibble
ghc/lib/required/Complex.lhs
patch
|
blob
|
history
diff --git
a/ghc/lib/required/Complex.lhs
b/ghc/lib/required/Complex.lhs
index
99c60ca
..
adcdc59
100644
(file)
--- a/
ghc/lib/required/Complex.lhs
+++ b/
ghc/lib/required/Complex.lhs
@@
-68,7
+68,7
@@
phase (x:+y) = atan2 y x
%*********************************************************
\begin{code}
%*********************************************************
\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')
(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
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
pi = pi :+ 0
exp (x:+y) = expx * cos y :+ expx * sin y
where expx = exp x