From be86978a56a8d4c67093433ceb95d1a44ae6a7cf Mon Sep 17 00:00:00 2001 From: Thomas Schilling Date: Sat, 22 Nov 2008 14:26:41 +0000 Subject: [PATCH] Report source span instead of just source location for unused names. --- compiler/rename/RnEnv.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/rename/RnEnv.lhs b/compiler/rename/RnEnv.lhs index e1d90e8..b7a2767 100644 --- a/compiler/rename/RnEnv.lhs +++ b/compiler/rename/RnEnv.lhs @@ -1029,7 +1029,7 @@ warnUnusedBinds names = mappM_ warnUnusedName (filter reportable names) warnUnusedName :: (Name, Provenance) -> RnM () warnUnusedName (name, LocalDef) - = addUnusedWarning name (srcLocSpan (nameSrcLoc name)) + = addUnusedWarning name (nameSrcSpan name) (ptext (sLit "Defined but not used")) warnUnusedName (name, Imported is) -- 1.7.10.4