diff options
author | Alan Zimmerman <alan.zimm@gmail.com> | 2021-10-28 19:05:51 +0100 |
---|---|---|
committer | Alan Zimmerman <alan.zimm@gmail.com> | 2021-11-02 21:39:32 +0000 |
commit | 39eed84c2188b15ed312b4468f1a44c6a49fb268 (patch) | |
tree | 0db2b8b53a33d4f61c273504b5665ba333474476 /testsuite/tests/haddock | |
parent | a7e1be3d84d2b7d0515f909175cdfa5dcf0dc55c (diff) | |
download | haskell-39eed84c2188b15ed312b4468f1a44c6a49fb268.tar.gz |
EPA: Get rid of bare SrcSpan's in the ParsedSource
The ghc-exactPrint library has had to re-introduce the relatavise
phase.
This is needed if you change the length of an identifier and want the
layout to be preserved afterwards.
It is not possible to relatavise a bare SrcSpan, so introduce `SrcAnn
NoEpAnns` for them instead.
Updates haddock submodule.
Diffstat (limited to 'testsuite/tests/haddock')
-rw-r--r-- | testsuite/tests/haddock/should_compile_flag_haddock/T17544.stderr | 24 |
1 files changed, 18 insertions, 6 deletions
diff --git a/testsuite/tests/haddock/should_compile_flag_haddock/T17544.stderr b/testsuite/tests/haddock/should_compile_flag_haddock/T17544.stderr index 566d319538..28393796b1 100644 --- a/testsuite/tests/haddock/should_compile_flag_haddock/T17544.stderr +++ b/testsuite/tests/haddock/should_compile_flag_haddock/T17544.stderr @@ -692,7 +692,9 @@ {OccName: a}))))]) (Prefix) (L - { <no location info> } + (SrcSpanAnn + (EpAnnNotUsed) + { <no location info> }) (NoSig (NoExtField))) (Nothing)))] @@ -952,7 +954,9 @@ {OccName: a}))))]) (Prefix) (L - { <no location info> } + (SrcSpanAnn + (EpAnnNotUsed) + { <no location info> }) (NoSig (NoExtField))) (Nothing)))] @@ -1212,7 +1216,9 @@ {OccName: a}))))]) (Prefix) (L - { <no location info> } + (SrcSpanAnn + (EpAnnNotUsed) + { <no location info> }) (NoSig (NoExtField))) (Nothing)))] @@ -1472,7 +1478,9 @@ {OccName: a}))))]) (Prefix) (L - { <no location info> } + (SrcSpanAnn + (EpAnnNotUsed) + { <no location info> }) (NoSig (NoExtField))) (Nothing)))] @@ -1732,7 +1740,9 @@ {OccName: a}))))]) (Prefix) (L - { <no location info> } + (SrcSpanAnn + (EpAnnNotUsed) + { <no location info> }) (NoSig (NoExtField))) (Nothing)))] @@ -1992,7 +2002,9 @@ {OccName: a}))))]) (Prefix) (L - { <no location info> } + (SrcSpanAnn + (EpAnnNotUsed) + { <no location info> }) (NoSig (NoExtField))) (Nothing)))] |