Commit 81f4f0d9 authored by simonpj's avatar simonpj
Browse files

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

Comment only
parent 16029516
......@@ -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)
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment