Commit b820793f authored by simonpj's avatar simonpj
Browse files

[project @ 2003-12-16 16:19:29 by simonpj]

Dont report bindings beginning with _ as unused
parent 172dd51c
......@@ -180,7 +180,10 @@ findUses dus uses
get (Nothing, rhs_uses) uses
= rhs_uses `unionNameSets` uses
get (Just defs, rhs_uses) uses
| defs `intersectsNameSet` uses
| defs `intersectsNameSet` uses -- Used
|| not (all (reportIfUnused . nameOccName) (nameSetToList defs))
-- At least one starts with an "_",
-- so treat the group as used
= rhs_uses `unionNameSets` uses
| otherwise -- No def is used
= uses
......
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