diff options
| author | Bartosz Nitka <niteria@gmail.com> | 2016-06-02 02:17:37 -0700 |
|---|---|---|
| committer | Bartosz Nitka <niteria@gmail.com> | 2016-06-02 02:29:00 -0700 |
| commit | cb2c042947ccc4d13bd11d3e4bce47059c3471de (patch) | |
| tree | a4fa73642cfc42df9f756a3e23afe954c09f8660 | |
| parent | 0676e68cf5fe8696f1f760fef0f35dba14db1104 (diff) | |
| download | haskell-cb2c042947ccc4d13bd11d3e4bce47059c3471de.tar.gz | |
Use nameSetAny in findUses
This kills one use of nameSetElems which is nondeterministic
| -rw-r--r-- | compiler/basicTypes/NameSet.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/basicTypes/NameSet.hs b/compiler/basicTypes/NameSet.hs index 14007750b9..559f43933f 100644 --- a/compiler/basicTypes/NameSet.hs +++ b/compiler/basicTypes/NameSet.hs @@ -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 |