X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fdeforest%2FDefUtils.lhs;h=9b039d47079baa4d48f0a3721baa6e930047efa6;hb=dcef38bab91d45b56f7cf3ceeec96303d93728bb;hp=62ab8034cdd8e00b9fe1c2e3a8a73640ef692e2b;hpb=f1815aa4bb218b92bc699d1355b6a704ee3e89ee;p=ghc-hetmet.git

diff --git a/ghc/compiler/deforest/DefUtils.lhs b/ghc/compiler/deforest/DefUtils.lhs
index 62ab803..9b039d4 100644
--- 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))