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

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}