From: Ian Lynagh Date: Sat, 12 Apr 2008 15:05:10 +0000 (+0000) Subject: (F)SLIT -> (f)sLit in DsBinds X-Git-Tag: 2008-05-28~263 X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=a54d6e3bb851bbaaa00dd9a9a770426497f4a895 (F)SLIT -> (f)sLit in DsBinds --- diff --git a/compiler/deSugar/DsBinds.lhs b/compiler/deSugar/DsBinds.lhs index 5f0bdb7..dc934a7 100644 --- a/compiler/deSugar/DsBinds.lhs +++ b/compiler/deSugar/DsBinds.lhs @@ -295,13 +295,13 @@ dsSpec all_tvs dicts tvs poly_id mono_id mono_bind void_tvs = all_tvs \\ tvs - dead_msg bs = vcat [ sep [ptext SLIT("Useless constraint") <> plural bs - <+> ptext SLIT("in specialied type:"), + dead_msg bs = vcat [ sep [ptext (sLit "Useless constraint") <> plural bs + <+> ptext (sLit "in specialied type:"), nest 2 (pprTheta (map get_pred bs))] - , ptext SLIT("SPECIALISE pragma ignored")] + , ptext (sLit "SPECIALISE pragma ignored")] get_pred b = ASSERT( isId b ) expectJust "dsSpec" (tcSplitPredTy_maybe (idType b)) - decomp_msg = hang (ptext SLIT("Specialisation too complicated to desugar; ignored")) + decomp_msg = hang (ptext (sLit "Specialisation too complicated to desugar; ignored")) 2 (ppr spec_expr) dsMkArbitraryType :: TcTyVar -> DsM Type