X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fspecialise%2FSpecialise.lhs;fp=compiler%2Fspecialise%2FSpecialise.lhs;h=43425343f0d150ab0bb615601b08d3dbbbed9697;hp=5d780ea212cc267b49fc4d97cee5d01f3c9b0837;hb=b8ee6f14ca6e9e49015ee9b404cf8b8191fede05;hpb=0252f1a49233b7618dc8923f257a37579802fce9

diff --git a/compiler/specialise/Specialise.lhs b/compiler/specialise/Specialise.lhs
index 5d780ea..4342534 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: