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

be86978a · Thomas Schilling · 12462936 · be86978a
Commit be86978a authored Nov 22, 2008 by Thomas Schilling
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

compiler/rename/RnEnv.lhs compiler/rename/RnEnv.lhs +1 -1

No files found.
--- 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)