X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypecheck%2FTypecheck.lhs;h=d1893e3c54ce186db294f53a58a62e5222d11bb5;hb=0596517a9b4b2b32e5d375a986351102ac4540fc;hp=f86c7dee495afa8441321ea8086d28c63135cb6c;hpb=6c381e873e222417d9a67aeec77b9555eca7b7a8;p=ghc-hetmet.git

diff --git a/ghc/compiler/typecheck/Typecheck.lhs b/ghc/compiler/typecheck/Typecheck.lhs
index f86c7de..d1893e3 100644
--- a/ghc/compiler/typecheck/Typecheck.lhs
+++ b/ghc/compiler/typecheck/Typecheck.lhs
@@ -50,10 +50,10 @@ typecheckModule
 	 [(Id, TypecheckedHsExpr)] -- constant instance binds
 	),
 
-        ([RenamedFixityDecl], [Id], UniqFM TyCon, UniqFM Class, Bag InstInfo),
+        ([RenamedFixityDecl], [Id], [TyCon], [Class], Bag InstInfo),
 				-- things for the interface generator
 
-        (UniqFM TyCon, UniqFM Class),
+        ([TyCon], [Class]),
 				-- environments of info from this module only
 
 	FiniteMap TyCon [(Bool, [Maybe Type])],