X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Frename%2FRnNames.lhs;h=3a20ac48b6c02a1101431763178647c58755f920;hb=ada48bbc7f6a43b2c042df629327902d82cea681;hp=a756c7f6c91f22d969895c234fbcc6ed2c6ecf14;hpb=6ea06bbf08517d9805feb82df65cc56ecbaf23a4;p=ghc-hetmet.git

diff --git a/compiler/rename/RnNames.lhs b/compiler/rename/RnNames.lhs
index a756c7f..3a20ac4 100644
--- a/compiler/rename/RnNames.lhs
+++ b/compiler/rename/RnNames.lhs
@@ -112,8 +112,9 @@ rnImportDecl this_mod implicit_prelude
 	-- (Opt_WarnMissingImportList also checks for T(..) items
 	--  but that is done in checkDodgyImport below)
     case imp_details of
-        Just (False, _)       -> return ()
+        Just (False, _)       -> return ()	-- Explicit import list
         _  | implicit_prelude -> return ()
+           | qual_only	      -> return ()
            | otherwise        -> ifDOptM Opt_WarnMissingImportList $
                                  addWarn (missingImportListWarn imp_mod_name)
 
@@ -586,6 +587,7 @@ filterImports iface decl_spec (Just (want_hiding, import_items)) all_avails
                 = ifDOptM Opt_WarnDodgyImports (addWarn (dodgyImportWarn n))
                 -- NB. use the RdrName for reporting the warning
 		| IEThingAll {} <- ieRdr
+		, not (is_qual decl_spec)
                 = ifDOptM Opt_WarnMissingImportList $
                   addWarn (missingImportListItem ieRdr)
             checkDodgyImport _