Repository : ssh://darcs.haskell.org//srv/darcs/packages/dph On branch : master
http://hackage.haskell.org/trac/ghc/changeset/67c023150056c991d93a457461d458635ca3676c >--------------------------------------------------------------- commit 67c023150056c991d93a457461d458635ca3676c Author: Ben Lippmeier <[email protected]> Date: Tue May 3 16:50:33 2011 +1000 Also trace the result size of filter operations >--------------------------------------------------------------- dph-base/Data/Array/Parallel/Base/TracePrim.hs | 2 +- dph-prim-par/Data/Array/Parallel/Unlifted.hs | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/dph-base/Data/Array/Parallel/Base/TracePrim.hs b/dph-base/Data/Array/Parallel/Base/TracePrim.hs index bf5611d..162f4ef 100644 --- a/dph-base/Data/Array/Parallel/Base/TracePrim.hs +++ b/dph-base/Data/Array/Parallel/Base/TracePrim.hs @@ -44,7 +44,7 @@ data TracePrim | TraceCombine { traceSrcLength :: Int } | TraceCombine2 { traceSrcLength :: Int } | TraceMap { traceSrcLength :: Int } - | TraceFilter { traceSrcLength :: Int } + | TraceFilter { traceSrcLength :: Int, traceDstLength :: Int } | TraceZipWith { traceSrc1Length :: Int, traceSrc2Length :: Int } | TraceFold { traceSrcLength :: Int } | TraceFold1 { traceSrcLength :: Int } diff --git a/dph-prim-par/Data/Array/Parallel/Unlifted.hs b/dph-prim-par/Data/Array/Parallel/Unlifted.hs index 20f8fe1..6955d28 100644 --- a/dph-prim-par/Data/Array/Parallel/Unlifted.hs +++ b/dph-prim-par/Data/Array/Parallel/Unlifted.hs @@ -140,9 +140,9 @@ map f arr $! mapUP f arr -filter f arr - = tracePrim (TraceFilter (Seq.length arr)) - $! filterUP f arr +filter f src + = let dst = filterUP f src + in tracePrim (TraceFilter (Seq.length src) (Seq.length dst)) dst zipWith f arr1 arr2 _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
