Commit cb2c0429 authored by niteria's avatar niteria
Browse files

Use nameSetAny in findUses

This kills one use of nameSetElems which is nondeterministic
parent 0676e68c
......@@ -195,7 +195,7 @@ findUses dus uses
= rhs_uses `unionNameSet` uses
get (Just defs, rhs_uses) uses
| defs `intersectsNameSet` uses -- Used
|| any (startsWithUnderscore . nameOccName) (nameSetElems defs)
|| nameSetAny (startsWithUnderscore . nameOccName) defs
-- At least one starts with an "_",
-- so treat the group as used
= rhs_uses `unionNameSet` uses
......
Markdown is supported
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