[commit: dph] master: Remove leftover generate tracing code (5fc7eb7)

[Ben Lippmeier]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/5fc7eb7062e351687f15b9d8880385e37430b72c

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

commit 5fc7eb7062e351687f15b9d8880385e37430b72c
Author: Ben Lippmeier <benl at ouroborus.net>
Date:   Wed Apr 13 14:15:58 2011 +1000

    Remove leftover generate tracing code

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

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

diff --git a/dph-prim-par/Data/Array/Parallel/Unlifted/Distributed/Combinators.hs b/dph-prim-par/Data/Array/Parallel/Unlifted/Distributed/Combinators.hs
index 2a70e6d..a30b5bf 100644
--- a/dph-prim-par/Data/Array/Parallel/Unlifted/Distributed/Combinators.hs
+++ b/dph-prim-par/Data/Array/Parallel/Unlifted/Distributed/Combinators.hs
@@ -41,16 +41,14 @@ here s = "Data.Array.Parallel.Unlifted.Distributed.Combinators." ++ s
 generateD :: DT a => Gang -> (Int -> a) -> Dist a
 {-# NOINLINE generateD #-}
 generateD g f 
- 	= trace "generate full")
- 	$ runDistST g (myIndex >>= return . f)
+ 	= runDistST g (myIndex >>= return . f)
 
 
 -- | Create a distributed value, but run it sequentially (I think?)
 generateD_cheap :: DT a => Gang -> (Int -> a) -> Dist a
 {-# NOINLINE generateD_cheap #-}
 generateD_cheap g f 
-	= trace "generate cheap"
-	$ runDistST_seq g (myIndex >>= return . f)
+	= runDistST_seq g (myIndex >>= return . f)
 
 
 -- Mapping --------------------------------------------------------------------