[project @ 1996-04-05 08:26:04 by partain]

[ghc-hetmet.git] / ghc / compiler / deforest / Cyclic.lhs

diff --git a/ghc/compiler/deforest/Cyclic.lhs b/ghc/compiler/deforest/Cyclic.lhs
index 08b65d7..48cde68 100644 (file)
--- a/ghc/compiler/deforest/Cyclic.lhs
+++ b/ghc/compiler/deforest/Cyclic.lhs
@@ -165,8 +165,7 @@ Comment the next section out to disable back-loops.
 >              if not (null back_loops){- && not (f `elem` ls')-} then
 >                 --if length back_loops > 1 then panic "barf!" else
 >                      d2c (head back_loops)   `thenUs` \core_e ->
->                      trace ("Back Loop:\n" ++
->                              ppShow 80 (ppr PprDebug core_e)) $
+>                      pprTrace "Back Loop:\n" (ppr PprDebug core_e) $
 
 If we find a back-loop that also occurs where we would normally make a
 new function...