diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2011-07-27 10:30:59 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2011-07-27 10:30:59 +0100 |
| commit | e84b35aaf9d806ec553bdee3a86feedf96a46904 (patch) | |
| tree | ad62b50775ab506d22a44004628d5b5c2b45a5bd /compiler | |
| parent | e5c4e4178c8137961dc0377d00acf0bae1fefa1e (diff) | |
| download | haskell-e84b35aaf9d806ec553bdee3a86feedf96a46904.tar.gz | |
Print rules as well as binds in simplOptPgm debug
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/coreSyn/CoreSubst.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/coreSyn/CoreSubst.lhs b/compiler/coreSyn/CoreSubst.lhs index 7df3f5241b..4bfc2a3d3d 100644 --- a/compiler/coreSyn/CoreSubst.lhs +++ b/compiler/coreSyn/CoreSubst.lhs @@ -50,7 +50,7 @@ import Type hiding ( substTy, extendTvSubst, extendTvSubstList import Coercion hiding ( substTy, substCo, extendTvSubst, substTyVarBndr, substCoVarBndr ) import OptCoercion ( optCoercion ) -import PprCore ( pprCoreBindings ) +import PprCore ( pprCoreBindings, pprRules ) import VarSet import VarEnv import Id @@ -798,7 +798,7 @@ simpleOptPgm :: DynFlags -> [CoreBind] -> [CoreRule] -> [CoreVect] -> IO ([CoreBind], [CoreRule], [CoreVect]) simpleOptPgm dflags binds rules vects = do { dumpIfSet_dyn dflags Opt_D_dump_occur_anal "Occurrence analysis" - (pprCoreBindings occ_anald_binds); + (pprCoreBindings occ_anald_binds $$ pprRules rules ); ; return (reverse binds', substRulesForImportedIds subst' rules, substVects subst' vects) } where |