From b8ee103cf9bccca7e9c6156872a5d75074c93e37 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 28 Nov 2005 14:50:57 +0000
Subject: [PATCH] [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
---
ghc/compiler/coreSyn/PprCore.lhs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/ghc/compiler/coreSyn/PprCore.lhs b/ghc/compiler/coreSyn/PprCore.lhs
index a4ff8ef91a7..0a40ab4ba62 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}
--
GitLab