diff options
| author | Shayne Fletcher <shayne@shaynefletcher.org> | 2021-05-02 16:56:55 -0400 |
|---|---|---|
| committer | Shayne Fletcher <shayne@shaynefletcher.org> | 2021-05-26 04:04:43 -0400 |
| commit | 48c9b408538cdb784e9c9764227e4544f48af6ec (patch) | |
| tree | 7e99e8580473718a4f7c6a692672082d245a743b /utils/check-exact/ExactPrint.hs | |
| parent | 11bdf3cdd6efb406839a0ebe33455908a66df805 (diff) | |
| download | haskell-wip/T19783.tar.gz | |
Change representation of HsGetField and HsProjectionwip/T19783
Another change in a series improving record syntax in the AST. The key
change in this commit is the renaming of `HsFieldLabel` to `DotFieldOcc`.
Diffstat (limited to 'utils/check-exact/ExactPrint.hs')
| -rw-r--r-- | utils/check-exact/ExactPrint.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/utils/check-exact/ExactPrint.hs b/utils/check-exact/ExactPrint.hs index 8786e03fd8..afb19d8bd9 100644 --- a/utils/check-exact/ExactPrint.hs +++ b/utils/check-exact/ExactPrint.hs @@ -2268,10 +2268,10 @@ instance ExactPrint (FieldLabelStrings GhcPs) where -- --------------------------------------------------------------------- -instance ExactPrint (HsFieldLabel GhcPs) where - getAnnotationEntry (HsFieldLabel an _) = fromAnn an +instance ExactPrint (DotFieldOcc GhcPs) where + getAnnotationEntry (DotFieldOcc an _) = fromAnn an - exact (HsFieldLabel an fs) = do + exact (DotFieldOcc an fs) = do markAnnKwM an afDot AnnDot markAnnotated fs |