From: Thomas Schilling <nominolo@googlemail.com>
Date: Sat, 22 Nov 2008 14:26:41 +0000 (+0000)
Subject: Report source span instead of just source location for unused names.
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=be86978a56a8d4c67093433ceb95d1a44ae6a7cf

Report source span instead of just source location for unused names.
---

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)