diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2015-09-20 12:18:21 +0200 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2015-09-20 12:18:23 +0200 |
| commit | c738b1231bc63a45be87d49cc42b7644681e509d (patch) | |
| tree | 6ed56ca5a4a08c02723f4b38b5193e8e9fd7f859 /compiler/parser | |
| parent | b89c49138fcd62a1175d67fac62d59ac2497bfdd (diff) | |
| download | haskell-c738b1231bc63a45be87d49cc42b7644681e509d.tar.gz | |
Replace [PostTc id Type] with PostTc id [Type]
This gives a clearer indication as to what gets filled in
when. It was suggested by Richard on D1152.
Test Plan: ./validate
Reviewers: austin, goldfire, bgamari
Reviewed By: goldfire, bgamari
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D1245
Diffstat (limited to 'compiler/parser')
| -rw-r--r-- | compiler/parser/RdrHsSyn.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/parser/RdrHsSyn.hs b/compiler/parser/RdrHsSyn.hs index beb3b3bffa..a83f6b36da 100644 --- a/compiler/parser/RdrHsSyn.hs +++ b/compiler/parser/RdrHsSyn.hs @@ -1178,7 +1178,8 @@ mkRecConstrOrUpdate (L l (HsVar c)) _ (fs,dd) | isRdrDataCon c = return (RecordCon (L l c) noPostTcExpr (mk_rec_fields fs dd)) mkRecConstrOrUpdate exp _ (fs,dd) - = return (RecordUpd exp (mk_rec_fields fs dd) [] [] []) + = return (RecordUpd exp (mk_rec_fields fs dd) + PlaceHolder PlaceHolder PlaceHolder) mk_rec_fields :: [LHsRecField id arg] -> Bool -> HsRecFields id arg mk_rec_fields fs False = HsRecFields { rec_flds = fs, rec_dotdot = Nothing } |