Fix parsing precedence problem
authorIan Lynagh <igloo@earth.li>
Sun, 23 Mar 2008 20:29:27 +0000 (20:29 +0000)
committerIan Lynagh <igloo@earth.li>
Sun, 23 Mar 2008 20:29:27 +0000 (20:29 +0000)
GHC/Integer.lhs

index 3bcb1ed..ae1a097 100644 (file)
@@ -149,8 +149,8 @@ divModInteger (S# i) (S# j) = (# S# (i `divInt#` j), S# (i `modInt#` j) #)
 
       modInt# :: Int# -> Int# -> Int#
       x# `modInt#` y#
-       = if (x# ># 0#) && (y# <# 0#) ||
-            (x# <# 0#) && (y# ># 0#)
+       = if ((x# ># 0#) && (y# <# 0#)) ||
+            ((x# <# 0#) && (y# ># 0#))
          then if r# /=# 0# then r# +# y# else 0#
          else r#
           where r# = x# `remInt#` y#