diff options
author | Edward Z. Yang <ezyang@cs.stanford.edu> | 2017-02-22 21:59:59 -0800 |
---|---|---|
committer | Edward Z. Yang <ezyang@cs.stanford.edu> | 2017-02-23 15:16:02 -0800 |
commit | 8f8016a5cb006fe14e1058c01a215b90e8435cc8 (patch) | |
tree | c188df8556fac0d451e8b0d54bf6b78d45f10fc3 /compiler/backpack/NameShape.hs | |
parent | 39d926cd353f203c6dfa2c106179946fa2615d45 (diff) | |
download | haskell-8f8016a5cb006fe14e1058c01a215b90e8435cc8.tar.gz |
Include OverloadedRecordFields selectors in NameShape.
Summary:
Fixes #13323.
Signed-off-by: Edward Z. Yang <ezyang@cs.stanford.edu>
Test Plan: validate
Reviewers: bgamari, austin
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D3175
Diffstat (limited to 'compiler/backpack/NameShape.hs')
-rw-r--r-- | compiler/backpack/NameShape.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/backpack/NameShape.hs b/compiler/backpack/NameShape.hs index 9817854f28..261fffb6fb 100644 --- a/compiler/backpack/NameShape.hs +++ b/compiler/backpack/NameShape.hs @@ -83,7 +83,7 @@ mkNameShape :: ModuleName -> [AvailInfo] -> NameShape mkNameShape mod_name as = NameShape mod_name as $ mkOccEnv $ do a <- as - n <- availName a : availNames a + n <- availName a : availNamesWithSelectors a return (occName n, n) -- | Given an existing 'NameShape', merge it with a list of 'AvailInfo's |