Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

[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
  • Loading branch information...
commit b8ee103cf9bccca7e9c6156872a5d75074c93e37 1 parent d3d6939
simonmar authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  ghc/compiler/coreSyn/PprCore.lhs
View
2  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}
Please sign in to comment.
Something went wrong with that request. Please try again.