projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Inject implicit bindings after CoreTidy, not before Simplify
[ghc-hetmet.git]
/
compiler
/
simplCore
/
SimplMonad.lhs
diff --git
a/compiler/simplCore/SimplMonad.lhs
b/compiler/simplCore/SimplMonad.lhs
index
657b84b
..
c467659
100644
(file)
--- a/
compiler/simplCore/SimplMonad.lhs
+++ b/
compiler/simplCore/SimplMonad.lhs
@@
-8,7
+8,7
@@
module SimplMonad (
-- The monad
SimplM,
initSmpl,
-- The monad
SimplM,
initSmpl,
- getDOptsSmpl, getRules, getFamEnvs,
+ getDOptsSmpl, getSimplRules, getFamEnvs,
-- Unique supply
MonadUnique(..), newId,
-- Unique supply
MonadUnique(..), newId,
@@
-130,8
+130,8
@@
instance MonadUnique SimplM where
getDOptsSmpl :: SimplM DynFlags
getDOptsSmpl = SM (\st_env us sc -> (st_flags st_env, us, sc))
getDOptsSmpl :: SimplM DynFlags
getDOptsSmpl = SM (\st_env us sc -> (st_flags st_env, us, sc))
-getRules :: SimplM RuleBase
-getRules = SM (\st_env us sc -> (st_rules st_env, us, sc))
+getSimplRules :: SimplM RuleBase
+getSimplRules = SM (\st_env us sc -> (st_rules st_env, us, sc))
getFamEnvs :: SimplM (FamInstEnv, FamInstEnv)
getFamEnvs = SM (\st_env us sc -> (st_fams st_env, us, sc))
getFamEnvs :: SimplM (FamInstEnv, FamInstEnv)
getFamEnvs = SM (\st_env us sc -> (st_fams st_env, us, sc))