From 3d4a5fa2418648b6f6c3d4c96a4ae4945ee49a2d Mon Sep 17 00:00:00 2001 From: Trevor Elliott Date: Thu, 9 Feb 2012 11:53:34 -0800 Subject: [PATCH] Distinguish between normal and qualified unused imports --- compiler/rename/RnNames.lhs | 5 ++++- 1 files changed, 4 insertions(+), 1 deletions(-) diff --git a/compiler/rename/RnNames.lhs b/compiler/rename/RnNames.lhs index b3a3f83..b1a61db 100644 --- a/compiler/rename/RnNames.lhs +++ b/compiler/rename/RnNames.lhs @@ -1512,7 +1512,10 @@ warnUnusedImport (L loc decl, used, unused) <+> ptext (sLit "import") <+> pp_mod <> parens empty ] msg2 = sep [pp_herald <+> quotes (pprWithCommas ppr unused), text "from module" <+> quotes pp_mod <+> pp_not_used] - pp_herald = text "The import of" + pp_herald = text "The" <+> pp_qual <+> text "import of" + pp_qual + | ideclQualified decl = text "qualified" + | otherwise = empty pp_mod = ppr (unLoc (ideclName decl)) pp_not_used = text "is redundant" \end{code} -- 1.7.6.5