From ce5f2d9a39dd32b6a2b83addd4637a81d112c386 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 12 Apr 2008 16:05:59 +0000 Subject: [PATCH] (F)SLIT -> (f)sLit in TcTyFuns --- compiler/typecheck/TcTyFuns.lhs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/typecheck/TcTyFuns.lhs b/compiler/typecheck/TcTyFuns.lhs index 5a6f084..4c5be1c 100644 --- a/compiler/typecheck/TcTyFuns.lhs +++ b/compiler/typecheck/TcTyFuns.lhs @@ -1211,9 +1211,9 @@ misMatchMsg :: TidyEnv -> (TcType, TcType) -> (TidyEnv, SDoc) misMatchMsg env0 (ty_act, ty_exp) = let (env1, pp_exp, extra_exp) = ppr_ty env0 ty_exp (env2, pp_act, extra_act) = ppr_ty env1 ty_act - msg = sep [sep [ptext SLIT("Couldn't match expected type") <+> pp_exp, + msg = sep [sep [ptext (sLit "Couldn't match expected type") <+> pp_exp, nest 7 $ - ptext SLIT("against inferred type") <+> pp_act], + ptext (sLit "against inferred type") <+> pp_act], nest 2 (extra_exp $$ extra_act)] in (env2, msg) -- 1.7.10.4