X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Fcompiler%2Fdeforest%2FCore2Def.lhs;h=b6bfea937ad66db90498a2d1ddb171a58e19675a;hp=25c5d31111e6f4261e1bb6036d3553b5edf12be6;hb=7d61cb61daa5e433a0cb85b34b7f0c58b2f961ff;hpb=b8875f2f7f596482228645b9751f8f9c592a84c5

diff --git a/ghc/compiler/deforest/Core2Def.lhs b/ghc/compiler/deforest/Core2Def.lhs
index 25c5d31..b6bfea9 100644
--- a/ghc/compiler/deforest/Core2Def.lhs
+++ b/ghc/compiler/deforest/Core2Def.lhs
@@ -95,8 +95,8 @@ ToDo:
 >       Let (NonRec (v,ManyOcc _) e) e'
 >		| isTrivial e -> c2d (addOneToIdEnv p v (c2d p e)) e'
 >		| otherwise ->
->		trace ("Not inlining ManyOcc " ++ ppShow 80 (ppr PprDebug v)) (
->		Let (NonRec v (c2d p e)) (c2d p e'))
+>		pprTrace "Not inlining ManyOcc " (ppr PprDebug v) $
+>		Let (NonRec v (c2d p e)) (c2d p e')
 >
 >	Let (NonRec (v,DeadCode) e) e' ->
 >		panic "Core2Def(c2d): oops, unexpected DeadCode"
@@ -104,8 +104,8 @@ ToDo:
 >	Let (NonRec (v,OneOcc fun_or_arg dup_danger _ _ _) e) e'
 >	   | isTrivial e -> inline_it
 >	   | isDupDanger dup_danger ->
->		trace ("Not inlining DupDanger " ++ ppShow 80 (ppr PprDebug v))(
->		Let (NonRec v (c2d p e)) (c2d p e'))
+>		pprTrace "Not inlining DupDanger " (ppr PprDebug v) $
+>		Let (NonRec v (c2d p e)) (c2d p e')
 >	   | isFun fun_or_arg ->
 >		panic "Core2Def(c2d): oops, unexpected Macro"
 >	   | otherwise -> inline_it