diff options
| author | simonpj@microsoft.com <unknown> | 2009-12-24 15:39:49 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2009-12-24 15:39:49 +0000 |
| commit | b8ee6f14ca6e9e49015ee9b404cf8b8191fede05 (patch) | |
| tree | 115dcd59d7cd201431c6607207518d9b8d809c69 /compiler/specialise/SpecConstr.lhs | |
| parent | 0252f1a49233b7618dc8923f257a37579802fce9 (diff) | |
| download | haskell-b8ee6f14ca6e9e49015ee9b404cf8b8191fede05.tar.gz | |
A bunch of stuff relating to substitutions on core
* I was debugging so I added some call-site info
(that touches a lot of code)
* I used substExpr a bit less in Simplify, hoping to
make the simplifier a little faster and cleaner
Diffstat (limited to 'compiler/specialise/SpecConstr.lhs')
| -rw-r--r-- | compiler/specialise/SpecConstr.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/specialise/SpecConstr.lhs b/compiler/specialise/SpecConstr.lhs index 404b6cc740..b95b903ec0 100644 --- a/compiler/specialise/SpecConstr.lhs +++ b/compiler/specialise/SpecConstr.lhs @@ -570,7 +570,7 @@ lookupHowBound :: ScEnv -> Id -> Maybe HowBound lookupHowBound env id = lookupVarEnv (sc_how_bound env) id scSubstId :: ScEnv -> Id -> CoreExpr -scSubstId env v = lookupIdSubst (sc_subst env) v +scSubstId env v = lookupIdSubst (text "scSubstId") (sc_subst env) v scSubstTy :: ScEnv -> Type -> Type scSubstTy env ty = substTy (sc_subst env) ty |