X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRnIfaces.lhs;fp=ghc%2Fcompiler%2Frename%2FRnIfaces.lhs;h=e3aa3a42911a190a02d3a8b19f7ed92fa2f6786a;hb=81f4f0d9713414bcccc18971d02c9dd441e5c18a;hp=c0d97dbdd70614848acb5d72d6499c9991dedd58;hpb=16029516d3f50eabbb446cc282965d243491b82d;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/RnIfaces.lhs b/ghc/compiler/rename/RnIfaces.lhs
index c0d97db..e3aa3a4 100644
--- a/ghc/compiler/rename/RnIfaces.lhs
+++ b/ghc/compiler/rename/RnIfaces.lhs
@@ -480,6 +480,7 @@ getWiredInGates (AClass cl)
 
 getWiredInGates (AnId the_id) = tyClsNamesOfType (idType the_id)
 getWiredInGates (ADataCon dc) = tyClsNamesOfType (idType (dataConWrapId dc))
+	-- Should include classes in the 'stupid context' of the data con?
 getWiredInGates (ATyCon tc)
   | isSynTyCon tc = tyClsNamesOfType ty
   | otherwise	  = unitFV (getName tc)