From edaf4b7be527a8c029f4f3855b57d538d764b500 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 12 Apr 2008 16:20:33 +0000 Subject: [PATCH] (F)SLIT -> (f)sLit in FamInst --- compiler/typecheck/FamInst.lhs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/compiler/typecheck/FamInst.lhs b/compiler/typecheck/FamInst.lhs index 224a960..eed79ca 100644 --- a/compiler/typecheck/FamInst.lhs +++ b/compiler/typecheck/FamInst.lhs @@ -12,8 +12,6 @@ module FamInst ( checkFamInstConsistency, tcExtendLocalFamInstEnv ) where -#include "HsVersions.h" - import HscTypes import FamInstEnv import TcMType @@ -212,7 +210,7 @@ checkForConflicts inst_envs famInst conflictInstErr famInst conflictingFamInst = addFamInstLoc famInst $ - addErr (hang (ptext SLIT("Conflicting family instance declarations:")) + addErr (hang (ptext (sLit "Conflicting family instance declarations:")) 2 (pprFamInsts [famInst, conflictingFamInst])) addFamInstLoc famInst thing_inside -- 1.7.10.4