diff options
| author | Shayne Fletcher <shayne@shaynefletcher.org> | 2021-02-21 11:48:17 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2021-03-06 19:27:04 -0500 |
| commit | cf65cf16c89414273c4f6b2d090d4b2fffb90759 (patch) | |
| tree | 57d893535444c2face265c12ade95f0ef3f0ceba /compiler/GHC/ThToHs.hs | |
| parent | 9e0c0c3a7b6cad8c08e5de7e2a27cf2cb2d2368f (diff) | |
| download | haskell-cf65cf16c89414273c4f6b2d090d4b2fffb90759.tar.gz | |
Implement record dot syntaxwip/joachim/bump-haddock
Diffstat (limited to 'compiler/GHC/ThToHs.hs')
| -rw-r--r-- | compiler/GHC/ThToHs.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/ThToHs.hs b/compiler/GHC/ThToHs.hs index 12f65d36ca..29976e4b89 100644 --- a/compiler/GHC/ThToHs.hs +++ b/compiler/GHC/ThToHs.hs @@ -1020,7 +1020,7 @@ cvtl e = wrapL (cvt e) ; flds' <- mapM (cvtFld (mkAmbiguousFieldOcc . noLoc)) flds - ; return $ mkRdrRecordUpd e' flds' } + ; return $ RecordUpd noExtField e' (Left flds') } cvt (StaticE e) = fmap (HsStatic noExtField) $ cvtl e cvt (UnboundVarE s) = do -- Use of 'vcName' here instead of 'vName' is -- important, because UnboundVarE may contain |