From: simonmar <unknown>
Date: Mon, 28 Nov 2005 14:50:57 +0000 (+0000)
Subject: [project @ 2005-11-28 14:50:57 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete^0
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=b8ee103cf9bccca7e9c6156872a5d75074c93e37

[project @ 2005-11-28 14:50:57 by simonmar]
small tidyup for printing bindings with long identifiers: allow the
binder and its definition to go on separate lines
---

diff --git a/ghc/compiler/coreSyn/PprCore.lhs b/ghc/compiler/coreSyn/PprCore.lhs
index a4ff8ef..0a40ab4 100644
--- a/ghc/compiler/coreSyn/PprCore.lhs
+++ b/ghc/compiler/coreSyn/PprCore.lhs
@@ -101,7 +101,7 @@ ppr_bind (Rec binds)  	       = vcat (map pp binds)
 ppr_binding :: OutputableBndr b => (b, Expr b) -> SDoc
 ppr_binding (val_bdr, expr)
   = pprBndr LetBind val_bdr $$ 
-    (ppr val_bdr <+> equals <+> pprCoreExpr expr)
+    hang (ppr val_bdr <+> equals) 2 (pprCoreExpr expr)
 \end{code}
 
 \begin{code}