[project @ 1997-05-19 00:12:10 by sof]

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

diff --git a/ghc/compiler/deforest/DefUtils.lhs b/ghc/compiler/deforest/DefUtils.lhs
index 62ab803..9b039d4 100644 (file)
--- a/ghc/compiler/deforest/DefUtils.lhs
+++ b/ghc/compiler/deforest/DefUtils.lhs
@@ -340,8 +340,8 @@ or otherwise global ids.
 >                              d2c (strip u)   `thenUs` \u ->
 >                              d2c (strip u')  `thenUs` \u' ->
 >                              trace ("failed consistency check:\n" ++
->                                     ppShow 80 (ppr PprDebug u) ++ "\n" ++
->                                     ppShow 80 (ppr PprDebug u'))
+>                                     show (ppr PprDebug u) ++ "\n" ++
+>                                     show (ppr PprDebug u'))
 >                              (returnUs (InconsistentRenaming r))
 >                      else
 >                              trace "Renaming!" (returnUs (IsRenaming r))