summaryrefslogtreecommitdiff
path: root/compiler/backpack/NameShape.hs
diff options
context:
space:
mode:
authorEdward Z. Yang <ezyang@cs.stanford.edu>2017-02-22 21:59:59 -0800
committerEdward Z. Yang <ezyang@cs.stanford.edu>2017-02-23 15:16:02 -0800
commit8f8016a5cb006fe14e1058c01a215b90e8435cc8 (patch)
treec188df8556fac0d451e8b0d54bf6b78d45f10fc3 /compiler/backpack/NameShape.hs
parent39d926cd353f203c6dfa2c106179946fa2615d45 (diff)
downloadhaskell-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.hs2
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