diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2021-09-24 15:56:21 -0400 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-09-29 09:44:40 -0400 |
| commit | f66eaefd5d4a3e0c0822dd3678e5e55a7d972a0d (patch) | |
| tree | 672eb26f7d2aae5f06486521ae9afdc3f2d9d7de /compiler/GHC/Rename | |
| parent | 2e68d4fa8c2514009db368fbbce213e36bdbcda2 (diff) | |
| download | haskell-f66eaefd5d4a3e0c0822dd3678e5e55a7d972a0d.tar.gz | |
compiler: occEnvElts -> nonDetOccEnvElts
Diffstat (limited to 'compiler/GHC/Rename')
| -rw-r--r-- | compiler/GHC/Rename/Utils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Rename/Utils.hs b/compiler/GHC/Rename/Utils.hs index 37a229e203..9642617570 100644 --- a/compiler/GHC/Rename/Utils.hs +++ b/compiler/GHC/Rename/Utils.hs @@ -462,7 +462,7 @@ warnUnusedGRE gre@(GRE { gre_lcl = lcl, gre_imp = is }) -- names, to be used when reporting unused record fields. mkFieldEnv :: GlobalRdrEnv -> NameEnv (FieldLabelString, Parent) mkFieldEnv rdr_env = mkNameEnv [ (greMangledName gre, (flLabel fl, gre_par gre)) - | gres <- occEnvElts rdr_env + | gres <- nonDetOccEnvElts rdr_env , gre <- gres , Just fl <- [greFieldLabel gre] ] |