From: Simon Marlow <simonmar@microsoft.com>
Date: Fri, 27 Oct 2006 13:08:00 +0000 (+0000)
Subject: `par` should be infixr 0
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=7db56f982909a1eef6455ee8916470aa9ba14d5c;p=haskell-directory.git

`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
--- 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 #-}