X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FcoreSyn%2FPprCore.lhs;fp=compiler%2FcoreSyn%2FPprCore.lhs;h=df2978e4d2c543981be7afa496b8bcfdc7f4fffc;hp=56c6572a5e0e2d9ed14a436c7b9af37132fa453f;hb=737e2ddbdd537f9e366329347001f31d91f1b5ef;hpb=623e6139a5a3834bb1eb0582763c464549f7b918

diff --git a/compiler/coreSyn/PprCore.lhs b/compiler/coreSyn/PprCore.lhs
index 56c6572..df2978e 100644
--- a/compiler/coreSyn/PprCore.lhs
+++ b/compiler/coreSyn/PprCore.lhs
@@ -269,9 +269,6 @@ pprCoreBinder LambdaBind bndr
 
 -- Case bound things don't get a signature or a herald, unless we have debug on
 pprCoreBinder CaseBind bndr 
-  | isDeadBinder bndr	 -- False for tyvars
-  = ptext (sLit "_")
-  | otherwise
   = getPprStyle $ \ sty ->
     if debugStyle sty then
 	parens (pprTypedBinder bndr)
@@ -420,8 +417,9 @@ instance Outputable Unfolding where
       	      	  UnfoldNever         -> usually_empty
 		  UnfoldIfGoodArgs {} -> usually_empty
                   _other              -> pp_tmpl
-      usually_empty = ifPprDebug pp_tmpl
-            -- In this case show 'rhs' only in debug mode
+      usually_empty = ifPprDebug (ptext (sLit "<rhs>"))
+            -- Don't print the RHS or we get a quadratic 
+	    -- blowup in the size of the printout!
 \end{code}
 
 -----------------------------------------------------