X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Frename%2FRnNames.lhs;h=1052db68480412999232a51b8aae25de6a230e1b;hb=651dd121a65827884eea23605026d16e26d4301c;hp=781de3190e18046b3753a64c41f367099cb534fa;hpb=7bb3d1fc79521d591cd9f824893963141a7997b6;p=ghc-hetmet.git

diff --git a/compiler/rename/RnNames.lhs b/compiler/rename/RnNames.lhs
index 781de31..1052db6 100644
--- 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
+                 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