From: simonmar <unknown>
Date: Wed, 4 Aug 1999 15:32:39 +0000 (+0000)
Subject: [project @ 1999-08-04 15:32:39 by simonmar]
X-Git-Tag: Approximately_9120_patches~5909
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f99ae37e758f79b5e7c011599434e09b7ea285bc;p=ghc-hetmet.git

[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
--- 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