`par` should be infixr 0

Alas, I didn't spot this due to lack of testing, and the symptom is
that an expression like x `par` y `seq z will have exactly the wrong
parallelism properties.  The workaround is to add parantheses.

I think we could push this to the 6.6 branch.

diff --git a/Control/Parallel.hs b/Control/Parallel.hs
index 21c9fed..504d92b 100644 (file)
--- a/Control/Parallel.hs
+++ b/Control/Parallel.hs
@@ -30,6 +30,8 @@ import PrelBase
 import PrelErr   ( parError )
 import PrelGHC   ( parGlobal#, parLocal#, parAt#, parAtAbs#, parAtRel#, parAtForNow# )
 
+infixr 0 `par`
+
 {-# INLINE parGlobal #-}
 {-# INLINE parLocal #-}
 {-# INLINE parAt #-}