Skip to content
GitLab
Commit be86978a authored by Thomas Schilling's avatar Thomas Schilling
Browse files

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

parent 12462936
Hide whitespace changes
Inline Side-by-side
compiler/rename/RnEnv.lhs
View file @ be86978a
......@@ -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)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment