From 61bc26382b93e459023c68ebce62c83bcfb8ffc2 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 12 Apr 2008 12:12:11 +0000 Subject: [PATCH] (F)SLIT -> (f)sLit in Class --- compiler/types/Class.lhs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/compiler/types/Class.lhs b/compiler/types/Class.lhs index 2f946d8..fb7cab1 100644 --- a/compiler/types/Class.lhs +++ b/compiler/types/Class.lhs @@ -17,8 +17,6 @@ module Class ( classBigSig, classExtraBigSig, classTvsFds, classSCTheta ) where -#include "HsVersions.h" - import {-# SOURCE #-} TyCon ( TyCon ) import {-# SOURCE #-} TypeRep ( PredType ) @@ -176,9 +174,9 @@ instance Outputable DefMeth where pprFundeps :: Outputable a => [FunDep a] -> SDoc pprFundeps [] = empty -pprFundeps fds = hsep (ptext SLIT("|") : punctuate comma (map ppr_fd fds)) +pprFundeps fds = hsep (ptext (sLit "|") : punctuate comma (map ppr_fd fds)) where - ppr_fd (us, vs) = hsep [interppSP us, ptext SLIT("->"), + ppr_fd (us, vs) = hsep [interppSP us, ptext (sLit "->"), interppSP vs] \end{code} -- 1.7.10.4