diff options
| author | Ian Lynagh <igloo@earth.li> | 2010-01-02 22:05:56 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2010-01-02 22:05:56 +0000 |
| commit | 3029576129e31d23e749be21c6a5a6f376ba28cd (patch) | |
| tree | 580cc8b156e27b5aee464c9490c3fe115ccf5747 | |
| parent | a74ef5d0b9a5a8db3fe98fb0d671b35970cdc05c (diff) | |
| download | haskell-3029576129e31d23e749be21c6a5a6f376ba28cd.tar.gz | |
Whitespace only
| -rw-r--r-- | compiler/rename/RnNames.lhs | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/compiler/rename/RnNames.lhs b/compiler/rename/RnNames.lhs index 55fcea2054..7ccc7a21d2 100644 --- a/compiler/rename/RnNames.lhs +++ b/compiler/rename/RnNames.lhs @@ -1304,20 +1304,20 @@ isImpAll _other = False \begin{code} warnUnusedImport :: ImportDeclUsage -> RnM () -warnUnusedImport (L loc decl, used, unused) - | Just (False,[]) <- ideclHiding decl - = return () -- Do not warn for 'import M()' +warnUnusedImport (L loc decl, used, unused) + | Just (False,[]) <- ideclHiding decl + = return () -- Do not warn for 'import M()' | null used = addWarnAt loc msg1 -- Nothing used; drop entire decl - | null unused = return () -- Everything imported is used; nop + | null unused = return () -- Everything imported is used; nop | otherwise = addWarnAt loc msg2 -- Some imports are unused where msg1 = vcat [pp_herald <+> quotes pp_mod <+> pp_not_used, - nest 2 (ptext (sLit "except perhaps to import instances from") - <+> quotes pp_mod), - ptext (sLit "To import instances alone, use:") - <+> ptext (sLit "import") <+> pp_mod <> parens empty ] + nest 2 (ptext (sLit "except perhaps to import instances from") + <+> quotes pp_mod), + ptext (sLit "To import instances alone, use:") + <+> ptext (sLit "import") <+> pp_mod <> parens empty ] msg2 = sep [pp_herald <+> quotes (pprWithCommas ppr unused), - text "from module" <+> quotes pp_mod <+> pp_not_used] + text "from module" <+> quotes pp_mod <+> pp_not_used] pp_herald = text "The import of" pp_mod = ppr (unLoc (ideclName decl)) pp_not_used = text "is redundant" |