projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
When exporting F(..), all the children of F are also exported
[ghc-hetmet.git]
/
compiler
/
rename
/
RnNames.lhs
diff --git
a/compiler/rename/RnNames.lhs
b/compiler/rename/RnNames.lhs
index
781de31
..
1052db6
100644
(file)
--- a/
compiler/rename/RnNames.lhs
+++ b/
compiler/rename/RnNames.lhs
@@
-951,6
+951,10
@@
exports_from_avail (Just rdr_items) rdr_env imports this_mod
lookup_ie ie@(IEThingAll rdr)
= do name <- lookupGlobalOccRn rdr
let kids = findChildren kids_env name
lookup_ie ie@(IEThingAll rdr)
= do name <- lookupGlobalOccRn rdr
let kids = findChildren kids_env name
+ mkKidRdrName = case isQual_maybe rdr of
+ Nothing -> mkRdrUnqual
+ Just (modName, _) -> mkRdrQual modName
+ addUsedRdrNames $ map (mkKidRdrName . nameOccName) kids
when (null kids)
(if (isTyConName name) then addWarn (dodgyExportWarn name)
-- This occurs when you export T(..), but
when (null kids)
(if (isTyConName name) then addWarn (dodgyExportWarn name)
-- This occurs when you export T(..), but