projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
1246293
)
Report source span instead of just source location for unused names.
author
Thomas Schilling
<nominolo@googlemail.com>
Sat, 22 Nov 2008 14:26:41 +0000
(14:26 +0000)
committer
Thomas Schilling
<nominolo@googlemail.com>
Sat, 22 Nov 2008 14:26:41 +0000
(14:26 +0000)
compiler/rename/RnEnv.lhs
patch
|
blob
|
history
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)
- = addUnusedWarning name (srcLocSpan (nameSrcLoc name))
+ = addUnusedWarning name (nameSrcSpan name)
(ptext (sLit "Defined but not used"))
warnUnusedName (name, Imported is)