From: sof <unknown>
Date: Sun, 18 May 1997 04:08:22 +0000 (+0000)
Subject: [project @ 1997-05-18 04:08:22 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~686
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=855e7dc8c47f37ca7eb249699b3d36b1fb08f371;p=ghc-hetmet.git

[project @ 1997-05-18 04:08:22 by sof]
---

diff --git a/ghc/lib/required/Complex.lhs b/ghc/lib/required/Complex.lhs
index cfbeb83..99c60ca 100644
--- a/ghc/lib/required/Complex.lhs
+++ b/ghc/lib/required/Complex.lhs
@@ -116,7 +116,7 @@ instance  (Prelude.RealFloat a) => Floating (Complex a)	where
                             coshx = cosh x
 
     asin z@(x:+y)  =  y':+(-x')
-                      where  (x':+y') = log ((-y:+x) + sqrt (1 - z*z))
+                      where  (x':+y') = log (((-y):+x) + sqrt (1 - z*z))
     acos z@(x:+y)  =  y'':+(-x'')
                       where (x'':+y'') = log (z + ((-y'):+x'))
                             (x':+y')   = sqrt (1 - z*z)