From: simonpj <unknown>
Date: Wed, 7 May 2003 16:20:21 +0000 (+0000)
Subject: [project @ 2003-05-07 16:20:21 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~921
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=81f4f0d9713414bcccc18971d02c9dd441e5c18a

[project @ 2003-05-07 16:20:21 by simonpj]
Comment only
---

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)