X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRnIfaces.lhs;fp=ghc%2Fcompiler%2Frename%2FRnIfaces.lhs;h=5a4bd8ec041e55cee5f6bca53ba72d68e1325394;hb=3355c9d53b220ccb110e5a3c81a1a8b2c9c41555;hp=8a1100625d9698da9967a978806bfa2354cab49e;hpb=f761d6d07c3948fe7356170b5516687e1d6c4f33;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/RnIfaces.lhs b/ghc/compiler/rename/RnIfaces.lhs
index 8a11006..5a4bd8e 100644
--- a/ghc/compiler/rename/RnIfaces.lhs
+++ b/ghc/compiler/rename/RnIfaces.lhs
@@ -199,6 +199,8 @@ get_main_name (AnId id)
 	DataConWorkId dc -> get_main_name (ATyCon (dataConTyCon dc))
 	DataConWrapId dc -> get_main_name (ATyCon (dataConTyCon dc))
 	RecordSelId lbl  -> get_main_name (ATyCon (fieldLabelTyCon lbl))
+	GenericOpId tc   -> get_main_name (ATyCon tc)
+	ClassOpId cl     -> className cl
 	other	         -> idName id