From: Ian Lynagh <igloo@earth.li>
Date: Sat, 12 Apr 2008 16:05:59 +0000 (+0000)
Subject: (F)SLIT -> (f)sLit in TcTyFuns
X-Git-Tag: 2008-05-28~228
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=ce5f2d9a39dd32b6a2b83addd4637a81d112c386

(F)SLIT -> (f)sLit in TcTyFuns
---

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)