X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Ftypes%2FType.lhs;h=4be386c1edbddd55d650a6b3b50798898100ff7b;hb=5f449458b64f2fa2f5c6dd604c8f92e0e2fbcdcf;hp=db23582fdbc08e4eda76562f47a3f34d25a627a3;hpb=04baa3c1969bdf1c1f39c4383703d9f5acc77d81;p=ghc-hetmet.git

diff --git a/compiler/types/Type.lhs b/compiler/types/Type.lhs
index db23582..4be386c 100644
--- a/compiler/types/Type.lhs
+++ b/compiler/types/Type.lhs
@@ -1323,9 +1323,9 @@ zip_ty_env tvs      tys      env   = pprTrace "Var/Type length mismatch: " (ppr
 
 instance Outputable TvSubst where
   ppr (TvSubst ins env) 
-    = brackets $ sep[ ptext SLIT("TvSubst"),
-		      nest 2 (ptext SLIT("In scope:") <+> ppr ins), 
-		      nest 2 (ptext SLIT("Env:") <+> ppr env) ]
+    = brackets $ sep[ ptext (sLit "TvSubst"),
+		      nest 2 (ptext (sLit "In scope:") <+> ppr ins), 
+		      nest 2 (ptext (sLit "Env:") <+> ppr env) ]
 \end{code}
 
 %************************************************************************