projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
d3d6939
)
[project @ 2005-11-28 14:50:57 by simonmar]
Initial_conversion_from_CVS_complete
author
simonmar
<unknown>
Mon, 28 Nov 2005 14:50:57 +0000
(14:50 +0000)
committer
simonmar
<unknown>
Mon, 28 Nov 2005 14:50:57 +0000
(14:50 +0000)
small tidyup for printing bindings with long identifiers: allow the
binder and its definition to go on separate lines
ghc/compiler/coreSyn/PprCore.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/coreSyn/PprCore.lhs
b/ghc/compiler/coreSyn/PprCore.lhs
index
a4ff8ef
..
0a40ab4
100644
(file)
--- 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}