diff options
author | Vladislav Zavialov <vlad.z.4096@gmail.com> | 2021-10-02 03:15:14 +0300 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-10-04 23:46:21 -0400 |
commit | a762933454f1dbecaa2048f810f6ab6bbfe3a93d (patch) | |
tree | 05d54919ee3e2ccddb1b4ddce580afee479b620d /testsuite/tests/haddock/should_compile_flag_haddock/T17544.stderr | |
parent | a0f44cebb217b3586d861750366301b973073dd1 (diff) | |
download | haskell-a762933454f1dbecaa2048f810f6ab6bbfe3a93d.tar.gz |
Bespoke TokenLocation data type
The EpaAnnCO we were using contained an Anchor instead of EpaLocation,
making it harder to work with.
At the same time, using EpaLocation by itself isn't possible either,
as we may have tokens without location information.
Hence the new data type:
data TokenLocation = NoTokenLoc
| TokenLoc !EpaLocation
Diffstat (limited to 'testsuite/tests/haddock/should_compile_flag_haddock/T17544.stderr')
-rw-r--r-- | testsuite/tests/haddock/should_compile_flag_haddock/T17544.stderr | 45 |
1 files changed, 10 insertions, 35 deletions
diff --git a/testsuite/tests/haddock/should_compile_flag_haddock/T17544.stderr b/testsuite/tests/haddock/should_compile_flag_haddock/T17544.stderr index 8054c405c8..0fcb9122ed 100644 --- a/testsuite/tests/haddock/should_compile_flag_haddock/T17544.stderr +++ b/testsuite/tests/haddock/should_compile_flag_haddock/T17544.stderr @@ -117,13 +117,8 @@ [])) (HsUnrestrictedArrow (L - (EpAnn - (Anchor - { T17544.hs:6:11-12 } - (UnchangedAnchor)) - (NoEpAnns) - (EpaComments - [])) + (TokenLoc + (EpaSpan { T17544.hs:6:11-12 })) (HsNormalTok))) (L (SrcSpanAnn (EpAnnNotUsed) { T17544.hs:6:9 }) @@ -251,13 +246,8 @@ [])) (HsUnrestrictedArrow (L - (EpAnn - (Anchor - { T17544.hs:10:11-12 } - (UnchangedAnchor)) - (NoEpAnns) - (EpaComments - [])) + (TokenLoc + (EpaSpan { T17544.hs:10:11-12 })) (HsNormalTok))) (L (SrcSpanAnn (EpAnnNotUsed) { T17544.hs:10:9 }) @@ -381,13 +371,8 @@ [])) (HsUnrestrictedArrow (L - (EpAnn - (Anchor - { T17544.hs:14:11-12 } - (UnchangedAnchor)) - (NoEpAnns) - (EpaComments - [])) + (TokenLoc + (EpaSpan { T17544.hs:14:11-12 })) (HsNormalTok))) (L (SrcSpanAnn (EpAnnNotUsed) { T17544.hs:14:9 }) @@ -514,13 +499,8 @@ [])) (HsUnrestrictedArrow (L - (EpAnn - (Anchor - { T17544.hs:18:11-12 } - (UnchangedAnchor)) - (NoEpAnns) - (EpaComments - [])) + (TokenLoc + (EpaSpan { T17544.hs:18:11-12 })) (HsNormalTok))) (L (SrcSpanAnn (EpAnnNotUsed) { T17544.hs:18:9 }) @@ -587,13 +567,8 @@ [])) (HsUnrestrictedArrow (L - (EpAnn - (Anchor - { T17544.hs:20:11-12 } - (UnchangedAnchor)) - (NoEpAnns) - (EpaComments - [])) + (TokenLoc + (EpaSpan { T17544.hs:20:11-12 })) (HsNormalTok))) (L (SrcSpanAnn (EpAnnNotUsed) { T17544.hs:20:9 }) |