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:
913ed13
)
[project @ 2002-01-30 17:16:04 by simonpj]
author
simonpj
<unknown>
Wed, 30 Jan 2002 17:16:04 +0000
(17:16 +0000)
committer
simonpj
<unknown>
Wed, 30 Jan 2002 17:16:04 +0000
(17:16 +0000)
Improved printing
ghc/compiler/coreSyn/PprCore.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/coreSyn/PprCore.lhs
b/ghc/compiler/coreSyn/PprCore.lhs
index
3a27b2b
..
25d79f4
100644
(file)
--- a/
ghc/compiler/coreSyn/PprCore.lhs
+++ b/
ghc/compiler/coreSyn/PprCore.lhs
@@
-386,7
+386,7
@@
pprIdCoreRule (id,rule) = pprCoreRule (ppr id) rule
pprCoreRule :: SDoc -> CoreRule -> SDoc
pprCoreRule pp_fn (BuiltinRule name _)
- = ifPprDebug (ptext SLIT("Built in rule") <+> doubleQuotes (ptext name))
+ = ifPprDebug (ptext SLIT("Built in rule for") <+> pp_fn <> colon <+> doubleQuotes (ptext name))
pprCoreRule pp_fn (Rule name act tpl_vars tpl_args rhs)
= doubleQuotes (ptext name) <+> ppr act <+>