Repository : ssh://darcs.haskell.org//srv/darcs/packages/dph On branch :
http://hackage.haskell.org/trac/ghc/changeset/9b8f5a13364ead3d53972331d16480fcbbfb35b7 >--------------------------------------------------------------- commit 9b8f5a13364ead3d53972331d16480fcbbfb35b7 Author: George Roldugin <[email protected]> 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. _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
