From f99ae37e758f79b5e7c011599434e09b7ea285bc Mon Sep 17 00:00:00 2001 From: simonmar Date: Wed, 4 Aug 1999 15:32:39 +0000 Subject: [PATCH] [project @ 1999-08-04 15:32:39 by simonmar] parenthesise negative numbers in infix expressions. --- ghc/tests/numeric/should_run/arith002.hs | 36 +++++++++++++++--------------- 1 file changed, 18 insertions(+), 18 deletions(-) diff --git a/ghc/tests/numeric/should_run/arith002.hs b/ghc/tests/numeric/should_run/arith002.hs index 96ae7d2..51d9c66 100644 --- a/ghc/tests/numeric/should_run/arith002.hs +++ b/ghc/tests/numeric/should_run/arith002.hs @@ -29,24 +29,24 @@ main where i0a, i0b, i0c, i2a, i2b, im2a, im2b, i_pi, i_misc :: Ratio Int - i0a = 0 % 1 - i0b = -0 % 1 - i0c = 0 % -1 - i2a = 4 % 2 - i2b = -4 % -2 - im2a = -4 % 2 - im2b = 4 % -2 - i_pi = 22 % 7 - i_misc = 2 % 10000 + i0a = 0 % 1 + i0b = (-0) % 1 + i0c = 0 % (-1) + i2a = 4 % 2 + i2b = (-4) % (-2) + im2a = (-4) % 2 + im2b = 4 % (-2) + i_pi = 22 % 7 + i_misc = 2 % 10000 r0a, r0b, r0c, r2a, r2b, rm2a, rm2b, r_pi, r_misc :: Rational - r0a = 0 % 1 - r0b = -0 % 1 - r0c = 0 % -1 - r2a = 4 % 2 - r2b = -4 % -2 - rm2a = -4 % 2 - rm2b = 4 % -2 - r_pi = 22 % 7 - r_misc = 2 % 10000 + r0a = 0 % 1 + r0b = (-0) % 1 + r0c = 0 % (-1) + r2a = 4 % 2 + r2b = (-4) % (-2) + rm2a = (-4) % 2 + rm2b = 4 % (-2) + r_pi = 22 % 7 + r_misc = 2 % 10000 -- 1.7.10.4