X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FbasicTypes%2FId.lhs;h=ca0de3ca9afb0eeddae7493e9a1b86b08ffec711;hb=3355c9d53b220ccb110e5a3c81a1a8b2c9c41555;hp=83861151cc5be149c43d950ef21884d9c10caf07;hpb=f761d6d07c3948fe7356170b5516687e1d6c4f33;p=ghc-hetmet.git

diff --git a/ghc/compiler/basicTypes/Id.lhs b/ghc/compiler/basicTypes/Id.lhs
index 8386115..ca0de3c 100644
--- a/ghc/compiler/basicTypes/Id.lhs
+++ b/ghc/compiler/basicTypes/Id.lhs
@@ -289,15 +289,17 @@ isImplicitId :: Id -> Bool
 	-- file, even if it's mentioned in some other interface unfolding.
 isImplicitId id
   = case globalIdDetails id of
-	RecordSelId _   -> True	-- Includes dictionary selectors
+	RecordSelId _   -> True
         FCallId _       -> True
         PrimOpId _      -> True
+	ClassOpId _	-> True
+	GenericOpId _	-> True
         DataConWorkId _ -> True
 	DataConWrapId _ -> True
 		-- These are are implied by their type or class decl;
 		-- remember that all type and class decls appear in the interface file.
-		-- The dfun id must *not* be omitted, because it carries version info for
-		-- the instance decl
+		-- The dfun id is not an implicit Id; it must *not* be omitted, because 
+		-- it carries version info for the instance decl
 	other		-> False
 \end{code}