From 855e7dc8c47f37ca7eb249699b3d36b1fb08f371 Mon Sep 17 00:00:00 2001 From: sof Date: Sun, 18 May 1997 04:08:22 +0000 Subject: [PATCH] [project @ 1997-05-18 04:08:22 by sof] --- ghc/lib/required/Complex.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 1.7.10.4