Commit b8ee103c authored by simonmar's avatar simonmar

[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
parent d3d69395
......@@ -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}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment