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

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

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}