X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FbasicTypes%2FVar.lhs;h=d9cedf0b07fd4c1c0a345751747d65de0fb44cd4;hb=7df9b88b9e0565f438f16d8005526ffda80a1dbe;hp=38ab8b8ab4cbb33a434d6698edcb88f9bbbad1b2;hpb=1967fd3474913f3c0dc72b070019a830223c7fab;p=ghc-hetmet.git

diff --git a/compiler/basicTypes/Var.lhs b/compiler/basicTypes/Var.lhs
index 38ab8b8..d9cedf0 100644
--- a/compiler/basicTypes/Var.lhs
+++ b/compiler/basicTypes/Var.lhs
@@ -127,9 +127,9 @@ instance Outputable Var where
   ppr var = ppr (varName var) <+> ifPprDebug (brackets extra)
 	where
 	  extra = case var of
-			GlobalId {} -> ptext SLIT("gid")
-			LocalId  {} -> ptext SLIT("lid")
-			TyVar    {} -> ptext SLIT("tv")
+			GlobalId {} -> ptext (sLit "gid")
+			LocalId  {} -> ptext (sLit "lid")
+			TyVar    {} -> ptext (sLit "tv")
 			TcTyVar {tcTyVarDetails = details} -> pprTcTyVarDetails details
 
 instance Show Var where
@@ -247,7 +247,7 @@ mkWildCoVar :: Kind -> TyVar
 -- so its unique doesn't matter
 mkWildCoVar kind 
   = ASSERT( isCoercionKind kind )
-    TyVar { varName = mkSysTvName wild_uniq FSLIT("co_wild"),
+    TyVar { varName = mkSysTvName wild_uniq (fsLit "co_wild"),
             realUnique = _ILIT(1),
             varType = kind,
             isCoercionVar = True }