X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcoreSyn%2FCoreSubst.lhs;h=e63b0363a8feff4fe719ff1087339df6f584c30a;hb=6ee9554a738c442719ded861504acb729fd3d431;hp=503432da51f98f9cd98ca1297c143afd3b4c821e;hpb=2bd56f04031e31c91ee9f55acae0bf0da997b7e0;p=ghc-hetmet.git

diff --git a/compiler/coreSyn/CoreSubst.lhs b/compiler/coreSyn/CoreSubst.lhs
index 503432d..e63b036 100644
--- a/compiler/coreSyn/CoreSubst.lhs
+++ b/compiler/coreSyn/CoreSubst.lhs
@@ -43,6 +43,7 @@ import UniqSupply
 import Maybes
 import Outputable
 import PprCore		()		-- Instances
+import FastString
 
 import Data.List
 \end{code}
@@ -178,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
@@ -209,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}