X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Ftypes%2FClass.lhs;h=fb7cab135edc0598ff75d14ce4b55bb293440cb4;hb=1ae354e107715a9e3fd4e2d67b61f868c090e4ae;hp=051bef165cfa39567082b97977d5ec9d4312fe19;hpb=56bcc14f7e3038a36992ce3b490e9e805f08da37;p=ghc-hetmet.git

diff --git a/compiler/types/Class.lhs b/compiler/types/Class.lhs
index 051bef1..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 )
 
@@ -27,6 +25,7 @@ import Name
 import BasicTypes
 import Unique
 import Outputable
+import FastString
 \end{code}
 
 %************************************************************************
@@ -175,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}