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/Specialise.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/Specialise.lhs')
| -rw-r--r-- | compiler/specialise/Specialise.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/specialise/Specialise.lhs b/compiler/specialise/Specialise.lhs index 5d780ea212..43425343f0 100644 --- a/compiler/specialise/Specialise.lhs +++ b/compiler/specialise/Specialise.lhs @@ -588,7 +588,7 @@ specProgram us binds = initSM us $ \begin{code} specVar :: Subst -> Id -> CoreExpr -specVar subst v = lookupIdSubst subst v +specVar subst v = lookupIdSubst (text "specVar") subst v specExpr :: Subst -> CoreExpr -> SpecM (CoreExpr, UsageDetails) -- We carry a substitution down: |