projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove InlinePlease and add inline function and RULE
[ghc-hetmet.git]
/
compiler
/
coreSyn
/
PprCore.lhs
diff --git
a/compiler/coreSyn/PprCore.lhs
b/compiler/coreSyn/PprCore.lhs
index
38aff85
..
0e3b82d
100644
(file)
--- a/
compiler/coreSyn/PprCore.lhs
+++ b/
compiler/coreSyn/PprCore.lhs
@@
-232,9
+232,6
@@
ppr_expr add_par (Note (Coerce to_ty from_ty) expr)
pprParendExpr expr]
#endif
pprParendExpr expr]
#endif
-ppr_expr add_par (Note InlineCall expr)
- = add_par (ptext SLIT("__inline_call") <+> pprParendExpr expr)
-
ppr_expr add_par (Note InlineMe expr)
= add_par $ ptext SLIT("__inline_me") <+> pprParendExpr expr
ppr_expr add_par (Note InlineMe expr)
= add_par $ ptext SLIT("__inline_me") <+> pprParendExpr expr
@@
-324,7
+321,7
@@
pprIdBndrInfo info
doc | no_info = empty
| otherwise
doc | no_info = empty
| otherwise
- = brackets $ hcat [ppr prag_info, ppr occ_info,
+ = brackets $ hsep [ppr prag_info, ppr occ_info,
ppr dmd_info, ppr lbv_info
#ifdef OLD_STRICTNESS
, ppr (demandInfo id)
ppr dmd_info, ppr lbv_info
#ifdef OLD_STRICTNESS
, ppr (demandInfo id)