From: simonpj@microsoft.com <unknown>
Date: Tue, 17 Nov 2009 10:36:26 +0000 (+0000)
Subject: Improvements to pretty-printing of Core
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=737e2ddbdd537f9e366329347001f31d91f1b5ef

Improvements to pretty-printing of Core
---

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}
 
 -----------------------------------------------------