[commit: dph] master: Also trace the result size of filter operations (67c0231)

[Ben Lippmeier]

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 <benl at ouroborus.net>
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