diff options
author | Matthew Pickering <matthewtpickering@gmail.com> | 2016-10-01 17:55:04 -0400 |
---|---|---|
committer | Ben Gamari <ben@smart-cactus.org> | 2016-10-01 20:01:29 -0400 |
commit | 2d6642bd1956edf8b842c07d78e83c500246998a (patch) | |
tree | c16292ebfe857bba54c65de413c260e576860a46 /compiler/rename/RnEnv.hs | |
parent | c93813d96b1da53a2ebd9c9ac5af6cc3e3443c43 (diff) | |
download | haskell-2d6642bd1956edf8b842c07d78e83c500246998a.tar.gz |
Fix interaction of record pattern synonyms and record wildcards
We were missing an appropiate *ConLike lookup in the case when
the pattern synonym was defined in a different module.
Reviewers: austin, bgamari, simonpj
Reviewed By: simonpj
Subscribers: simonpj, thomie
Differential Revision: https://phabricator.haskell.org/D2544
GHC Trac Issues: #11987
Diffstat (limited to 'compiler/rename/RnEnv.hs')
-rw-r--r-- | compiler/rename/RnEnv.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/rename/RnEnv.hs b/compiler/rename/RnEnv.hs index 63b1f1f102..37e389e547 100644 --- a/compiler/rename/RnEnv.hs +++ b/compiler/rename/RnEnv.hs @@ -462,9 +462,9 @@ lookupConstructorFields con_name ; traceTc "lookupCF" (ppr con_name $$ ppr (lookupNameEnv field_env con_name) $$ ppr field_env) ; return (lookupNameEnv field_env con_name `orElse` []) } else - do { con <- tcLookupDataCon con_name + do { con <- tcLookupConLike con_name ; traceTc "lookupCF 2" (ppr con) - ; return (dataConFieldLabels con) } } + ; return (conLikeFieldLabels con) } } ----------------------------------------------- -- Used for record construction and pattern matching |