From 3220e36e51df973b2634cd800f9d6e761d4f01be Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 12 Apr 2008 16:27:05 +0000 Subject: [PATCH] (F)SLIT -> (f)sLit in TcRules --- compiler/typecheck/TcRules.lhs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/compiler/typecheck/TcRules.lhs b/compiler/typecheck/TcRules.lhs index 50ad098..3ee95cf 100644 --- a/compiler/typecheck/TcRules.lhs +++ b/compiler/typecheck/TcRules.lhs @@ -15,8 +15,6 @@ TcRules: Typechecking transformation rules module TcRules ( tcRules ) where -#include "HsVersions.h" - import HsSyn import TcRnMonad import TcSimplify @@ -40,7 +38,7 @@ tcRules decls = mapM (wrapLocM tcRule) decls tcRule :: RuleDecl Name -> TcM (RuleDecl TcId) tcRule (HsRule name act vars lhs fv_lhs rhs fv_rhs) = addErrCtxt (ruleCtxt name) $ do - traceTc (ptext SLIT("---- Rule ------") <+> ppr name) + traceTc (ptext (sLit "---- Rule ------") <+> ppr name) rule_ty <- newFlexiTyVarTy openTypeKind -- Deal with the tyvars mentioned in signatures @@ -115,7 +113,7 @@ tcRuleBndrs (RuleBndrSig var rn_ty : vars) thing_inside tcExtendIdEnv [id] $ tcRuleBndrs vars (\ids -> thing_inside (id:ids)) } -ruleCtxt name = ptext SLIT("When checking the transformation rule") <+> +ruleCtxt name = ptext (sLit "When checking the transformation rule") <+> doubleQuotes (ftext name) \end{code} -- 1.7.10.4