[project @ 1999-08-04 15:32:39 by simonmar]

parenthesise negative numbers in infix expressions.

diff --git a/ghc/tests/numeric/should_run/arith002.hs b/ghc/tests/numeric/should_run/arith002.hs
index 96ae7d2..51d9c66 100644 (file)
--- 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