[commit: dph] : Fixed combineUP. (9b8f5a1)

[Ben Lippmeier]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/dph

On branch  : 

http://hackage.haskell.org/trac/ghc/changeset/9b8f5a13364ead3d53972331d16480fcbbfb35b7

>---------------------------------------------------------------

commit 9b8f5a13364ead3d53972331d16480fcbbfb35b7
Author: George Roldugin <groldugin at cse.unsw.edu.au>
Date:   Tue May 10 09:50:26 2011 +1000

    Fixed combineUP.

>---------------------------------------------------------------

 .../Parallel/Unlifted/Parallel/Combinators.hs      |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/dph-prim-par/Data/Array/Parallel/Unlifted/Parallel/Combinators.hs b/dph-prim-par/Data/Array/Parallel/Unlifted/Parallel/Combinators.hs
index fe8284b..e09030e 100644
--- a/dph-prim-par/Data/Array/Parallel/Unlifted/Parallel/Combinators.hs
+++ b/dph-prim-par/Data/Array/Parallel/Unlifted/Parallel/Combinators.hs
@@ -58,7 +58,7 @@ combineUP :: Unbox a => Vector Bool -> Vector a -> Vector a -> Vector a
 {-# INLINE combineUP #-}
 combineUP flags xs ys 
         = combine2UP tags (mkUPSelRep2 tags) xs ys
-        where tags = Seq.map fromBool flags
+        where tags = Seq.map (fromBool . not) flags
 
 
 -- | Combine two vectors based on a selector.