From 3d4a5fa2418648b6f6c3d4c96a4ae4945ee49a2d Mon Sep 17 00:00:00 2001
From: Trevor Elliott <trevor@galois.com>
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
|
b
|
|
| 1512 | 1512 | <+> ptext (sLit "import") <+> pp_mod <> parens empty ] |
| 1513 | 1513 | msg2 = sep [pp_herald <+> quotes (pprWithCommas ppr unused), |
| 1514 | 1514 | text "from module" <+> quotes pp_mod <+> pp_not_used] |
| 1515 | | pp_herald = text "The import of" |
| | 1515 | pp_herald = text "The" <+> pp_qual <+> text "import of" |
| | 1516 | pp_qual |
| | 1517 | | ideclQualified decl = text "qualified" |
| | 1518 | | otherwise = empty |
| 1516 | 1519 | pp_mod = ppr (unLoc (ideclName decl)) |
| 1517 | 1520 | pp_not_used = text "is redundant" |
| 1518 | 1521 | \end{code} |
