Commit e84b35aa authored by Simon Peyton Jones's avatar Simon Peyton Jones

Print rules as well as binds in simplOptPgm debug

parent e5c4e417
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment