X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypes%2FClass.lhs;h=adfbe516f2bb17d98ef985bf6bb5f2cc7501f984;hb=f7ecf7234c224489be8a5e63fced903b655d92ee;hp=2a38d47ca2e65222512d1926cecfe1e547f6ec4c;hpb=e7498a3ee1d0484d02a9e86633cc179c76ebf36e;p=ghc-hetmet.git

diff --git a/ghc/compiler/types/Class.lhs b/ghc/compiler/types/Class.lhs
index 2a38d47..adfbe51 100644
--- a/ghc/compiler/types/Class.lhs
+++ b/ghc/compiler/types/Class.lhs
@@ -7,7 +7,7 @@
 #include "HsVersions.h"
 
 module Class (
-	GenClass(..), Class(..),
+	GenClass(..), SYN_IE(Class),
 
 	mkClass,
 	classKey, classOps, classSelIds,
@@ -20,12 +20,12 @@ module Class (
 	cCallishClassKeys, isNoDictClass,
 	isNumericClass, isStandardClass, isCcallishClass,
 
-	GenClassOp(..), ClassOp(..),
+	GenClassOp(..), SYN_IE(ClassOp),
 	mkClassOp,
 	classOpTag, classOpString,
 	classOpLocalType,
 
-	ClassInstEnv(..)
+	SYN_IE(ClassInstEnv)
     ) where
 
 CHK_Ubiq() -- debugging consistency check
@@ -33,14 +33,15 @@ CHK_Ubiq() -- debugging consistency check
 IMPORT_DELOOPER(TyLoop)
 
 import TyCon		( TyCon )
-import TyVar		( TyVar(..), GenTyVar )
-import Usage		( GenUsage, Usage(..), UVar(..) )
+import TyVar		( SYN_IE(TyVar), GenTyVar )
+import Usage		( GenUsage, SYN_IE(Usage), SYN_IE(UVar) )
 
-import Maybes		( assocMaybe, Maybe )
-import Name		( changeUnique )
+import MatchEnv		( MatchEnv )
+import Maybes		( assocMaybe )
+import Name		( changeUnique, Name )
 import Unique		-- Keys for built-in classes
-import Pretty		( Pretty(..), ppCat{-ToDo:rm-}, ppPStr{-ditto-} )
-import PprStyle		( PprStyle )
+import Pretty		( SYN_IE(Pretty), ppCat, ppPStr )
+--import PprStyle		( PprStyle )
 import SrcLoc		( SrcLoc )
 import Util
 \end{code}