diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2017-03-29 16:09:08 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2017-03-29 16:44:43 -0400 |
| commit | 154d224ade3d9f22b0e22fc8be8f3907f1ad51d2 (patch) | |
| tree | 724891638c98c10d5e75f9195a23098ecdc82f9a /compiler/parser | |
| parent | 04ea4c3f86db4e2cc7b2683f58f2076233039ebf (diff) | |
| download | haskell-154d224ade3d9f22b0e22fc8be8f3907f1ad51d2.tar.gz | |
Allow operators as record pattern synonym fields
Fixes #13454
Reviewers: austin, bgamari, dfeuer
Reviewed By: dfeuer
Subscribers: RyanGlScott, rwbarton, thomie
Differential Revision: https://phabricator.haskell.org/D3379
Diffstat (limited to 'compiler/parser')
| -rw-r--r-- | compiler/parser/Parser.y | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/parser/Parser.y b/compiler/parser/Parser.y index caa22dc207..21f564e2b9 100644 --- a/compiler/parser/Parser.y +++ b/compiler/parser/Parser.y @@ -1362,8 +1362,8 @@ vars0 :: { [Located RdrName] } | varid vars0 { $1 : $2 } cvars1 :: { [RecordPatSynField (Located RdrName)] } - : varid { [RecordPatSynField $1 $1] } - | varid ',' cvars1 {% addAnnotation (getLoc $1) AnnComma (getLoc $2) >> + : var { [RecordPatSynField $1 $1] } + | var ',' cvars1 {% addAnnotation (getLoc $1) AnnComma (getLoc $2) >> return ((RecordPatSynField $1 $1) : $3 )} where_decls :: { Located ([AddAnn] |