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:
37e4d45
)
[project @ 1997-09-04 20:21:13 by sof]
author
sof
<unknown>
Thu, 4 Sep 1997 20:21:13 +0000
(20:21 +0000)
committer
sof
<unknown>
Thu, 4 Sep 1997 20:21:13 +0000
(20:21 +0000)
ppr wibble
ghc/compiler/coreSyn/PprCore.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/coreSyn/PprCore.lhs
b/ghc/compiler/coreSyn/PprCore.lhs
index
29f26b0
..
f82c58d
100644
(file)
--- a/
ghc/compiler/coreSyn/PprCore.lhs
+++ b/
ghc/compiler/coreSyn/PprCore.lhs
@@
-12,7
+12,7
@@
module PprCore (
pprCoreExpr, pprIfaceUnfolding,
module PprCore (
pprCoreExpr, pprIfaceUnfolding,
- pprCoreBinding,
+ pprCoreBinding, pprCoreBindings,
pprBigCoreBinder,
pprTypedCoreBinder
pprBigCoreBinder,
pprTypedCoreBinder
@@
-65,7
+65,8
@@
print something.
@pprParendCoreExpr@ puts parens around non-atomic Core expressions.
\begin{code}
@pprParendCoreExpr@ puts parens around non-atomic Core expressions.
\begin{code}
-pprCoreBinding :: PprStyle -> CoreBinding -> Doc
+pprCoreBinding :: PprStyle -> CoreBinding -> Doc
+pprCoreBindings :: PprStyle -> [CoreBinding] -> Doc
pprGenCoreBinding
:: (Eq tyvar, Outputable tyvar,
pprGenCoreBinding
:: (Eq tyvar, Outputable tyvar,
@@
-117,6
+118,8
@@
init_ppr_env sty tvbndr pbdr1 pbdr2 pocc
| otherwise = ppr sty prim <> char '!'
--------------
| otherwise = ppr sty prim <> char '!'
--------------
+pprCoreBindings sty binds = vcat (map (pprCoreBinding sty) binds)
+
pprCoreBinding sty (NonRec binder expr)
= hang (hsep [pprBigCoreBinder sty binder, equals])
4 (pprCoreExpr sty (pprBigCoreBinder sty) (pprBabyCoreBinder sty) (ppr sty) expr)
pprCoreBinding sty (NonRec binder expr)
= hang (hsep [pprBigCoreBinder sty binder, equals])
4 (pprCoreExpr sty (pprBigCoreBinder sty) (pprBabyCoreBinder sty) (ppr sty) expr)