summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
d3d6939)
small tidyup for printing bindings with long identifiers: allow the
binder and its definition to go on separate lines
ppr_binding :: OutputableBndr b => (b, Expr b) -> SDoc
ppr_binding (val_bdr, expr)
= pprBndr LetBind val_bdr $$
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)