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:
58e45ee
)
Improve pretty-printing of Core slightly (avoid indenting let bodies)
author
simonpj@microsoft.com
<unknown>
Mon, 5 Nov 2007 22:05:35 +0000
(22:05 +0000)
committer
simonpj@microsoft.com
<unknown>
Mon, 5 Nov 2007 22:05:35 +0000
(22:05 +0000)
compiler/coreSyn/PprCore.lhs
patch
|
blob
|
history
diff --git
a/compiler/coreSyn/PprCore.lhs
b/compiler/coreSyn/PprCore.lhs
index
d13fdad
..
f297a79
100644
(file)
--- a/
compiler/coreSyn/PprCore.lhs
+++ b/
compiler/coreSyn/PprCore.lhs
@@
-193,7
+193,6
@@
ppr_expr add_par (Let bind@(NonRec val_bdr rhs@(Let _ _)) body)
nest 2 (pprCoreExpr rhs),
ptext SLIT("} in"),
pprCoreExpr body ]
nest 2 (pprCoreExpr rhs),
ptext SLIT("} in"),
pprCoreExpr body ]
--}
ppr_expr add_par (Let bind@(NonRec val_bdr rhs) expr@(Let _ _))
= add_par
ppr_expr add_par (Let bind@(NonRec val_bdr rhs) expr@(Let _ _))
= add_par
@@
-202,15
+201,16
@@
ppr_expr add_par (Let bind@(NonRec val_bdr rhs) expr@(Let _ _))
ptext SLIT("} in")])
$$
pprCoreExpr expr)
ptext SLIT("} in")])
$$
pprCoreExpr expr)
+-}
--- general case (recursive case, too)
+-- General case (recursive case, too)
ppr_expr add_par (Let bind expr)
= add_par $
ppr_expr add_par (Let bind expr)
= add_par $
- sep [hang (ptext keyword) 2 (ppr_bind bind),
- hang (ptext SLIT("} in ")) 2 (pprCoreExpr expr)]
+ sep [hang (ptext keyword) 2 (ppr_bind bind <+> ptext SLIT("} in")),
+ pprCoreExpr expr]
where
keyword = case bind of
where
keyword = case bind of
- Rec _ -> SLIT("__letrec {")
+ Rec _ -> SLIT("letrec {")
NonRec _ _ -> SLIT("let {")
ppr_expr add_par (Note (SCC cc) expr)
NonRec _ _ -> SLIT("let {")
ppr_expr add_par (Note (SCC cc) expr)