projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Report source span instead of just source location for unused names.
[ghc-hetmet.git]
/
compiler
/
rename
/
RnEnv.lhs
diff --git
a/compiler/rename/RnEnv.lhs
b/compiler/rename/RnEnv.lhs
index
e1d90e8
..
b7a2767
100644
(file)
--- 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)
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)
(ptext (sLit "Defined but not used"))
warnUnusedName (name, Imported is)