From 5a0f99847b515b58eff96bf6e37bfc2501c44df0 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 12 Apr 2008 12:25:24 +0000 Subject: [PATCH] (F)SLIT -> (f)sLit in Type --- compiler/types/Type.lhs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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} %************************************************************************ -- 1.7.10.4