projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2002-03-18 15:23:05 by simonpj]
[ghc-hetmet.git]
/
ghc
/
compiler
/
coreSyn
/
PprCore.lhs
diff --git
a/ghc/compiler/coreSyn/PprCore.lhs
b/ghc/compiler/coreSyn/PprCore.lhs
index
e77cac8
..
8639a93
100644
(file)
--- a/
ghc/compiler/coreSyn/PprCore.lhs
+++ b/
ghc/compiler/coreSyn/PprCore.lhs
@@
-12,7
+12,7
@@
module PprCore (
pprCoreExpr, pprParendExpr,
pprCoreBinding, pprCoreBindings, pprIdBndr,
pprCoreBinding, pprCoreBindings, pprCoreAlt,
pprCoreExpr, pprParendExpr,
pprCoreBinding, pprCoreBindings, pprIdBndr,
pprCoreBinding, pprCoreBindings, pprCoreAlt,
- pprCoreRules, pprCoreRule, pprIdCoreRule
+ pprIdRules, pprCoreRule
) where
#include "HsVersions.h"
) where
#include "HsVersions.h"
@@
-361,7
+361,7
@@
ppIdInfo b info
ppCprInfo m,
#endif
ppr (newStrictnessInfo info),
ppCprInfo m,
#endif
ppr (newStrictnessInfo info),
- pprCoreRules b p
+ vcat (map (pprCoreRule (ppr b)) (rulesRules p))
-- Inline pragma, occ, demand, lbvar info
-- printed out with all binders (when debug is on);
-- see PprCore.pprIdBndr
-- Inline pragma, occ, demand, lbvar info
-- printed out with all binders (when debug is on);
-- see PprCore.pprIdBndr
@@
-378,11
+378,11
@@
ppIdInfo b info
\begin{code}
\begin{code}
-pprCoreRules :: Id -> CoreRules -> SDoc
-pprCoreRules var (Rules rules _) = vcat (map (pprCoreRule (ppr var)) rules)
+pprIdRules :: [IdCoreRule] -> SDoc
+pprIdRules rules = vcat (map pprIdRule rules)
-pprIdCoreRule :: IdCoreRule -> SDoc
-pprIdCoreRule (id,rule) = pprCoreRule (ppr id) rule
+pprIdRule :: IdCoreRule -> SDoc
+pprIdRule (id,rule) = pprCoreRule (ppr id) rule
pprCoreRule :: SDoc -> CoreRule -> SDoc
pprCoreRule pp_fn (BuiltinRule name _)
pprCoreRule :: SDoc -> CoreRule -> SDoc
pprCoreRule pp_fn (BuiltinRule name _)