X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcoreSyn%2FCoreSubst.lhs;h=e63b0363a8feff4fe719ff1087339df6f584c30a;hb=391a3e9c08c470bd1444cba2e5111e253c19ea84;hp=adeeaddfb225c0cf5242f2a3b806a941231be8cb;hpb=30c122df62ec75f9ed7f392f24c2925675bf1d06;p=ghc-hetmet.git

diff --git a/compiler/coreSyn/CoreSubst.lhs b/compiler/coreSyn/CoreSubst.lhs
index adeeadd..e63b036 100644
--- a/compiler/coreSyn/CoreSubst.lhs
+++ b/compiler/coreSyn/CoreSubst.lhs
@@ -179,7 +179,7 @@ lookupIdSubst (Subst in_scope ids _) v
   | Just e  <- lookupVarEnv ids       v = e
   | Just v' <- lookupInScope in_scope v = Var v'
 	-- Vital! See Note [Extending the Subst]
-  | otherwise = WARN( True, ptext SLIT("CoreSubst.lookupIdSubst") <+> ppr v ) 
+  | otherwise = WARN( True, ptext (sLit "CoreSubst.lookupIdSubst") <+> ppr v ) 
 		Var v
 
 lookupTvSubst :: Subst -> TyVar -> Type
@@ -210,9 +210,9 @@ Pretty printing, for debugging only
 \begin{code}
 instance Outputable Subst where
   ppr (Subst in_scope ids tvs) 
-	=  ptext SLIT("<InScope =") <+> braces (fsep (map ppr (varEnvElts (getInScopeVars in_scope))))
-	$$ ptext SLIT(" IdSubst   =") <+> ppr ids
-	$$ ptext SLIT(" TvSubst   =") <+> ppr tvs
+	=  ptext (sLit "<InScope =") <+> braces (fsep (map ppr (varEnvElts (getInScopeVars in_scope))))
+	$$ ptext (sLit " IdSubst   =") <+> ppr ids
+	$$ ptext (sLit " TvSubst   =") <+> ppr tvs
  	 <> char '>'
 \end{code}