diff options
| author | Alan Zimmerman <alan.zimm@gmail.com> | 2020-10-04 20:46:41 +0100 |
|---|---|---|
| committer | Alan Zimmerman <alan.zimm@gmail.com> | 2020-10-20 08:35:34 +0100 |
| commit | ea736839d85594c95490dcf02d3325c2bbc68f33 (patch) | |
| tree | 6f6c0335e216f67b63caf9e4a46d3e5bb6e852af /testsuite/tests/haddock | |
| parent | 59b08a5d192e102f66a6d9260cc8466d7428cffe (diff) | |
| download | haskell-ea736839d85594c95490dcf02d3325c2bbc68f33.tar.gz | |
API Annotations: Keep track of unicode for linear arrow notationwip/az/unicode-hsscaled
The linear arrow can be parsed as `%1 ->` or a direct single token unicode
equivalent.
Make sure that this distinction is captured in the parsed AST by using
IsUnicodeSyntax where it appears, and introduce a new API Annotation,
AnnMult to represent its location when unicode is not used.
Updated haddock submodule
Diffstat (limited to 'testsuite/tests/haddock')
| -rw-r--r-- | testsuite/tests/haddock/should_compile_flag_haddock/T17544.stderr | 15 | ||||
| -rw-r--r-- | testsuite/tests/haddock/should_compile_flag_haddock/T17544_kw.stderr | 3 |
2 files changed, 12 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 118500cdeb..9af02d8c66 100644 --- a/testsuite/tests/haddock/should_compile_flag_haddock/T17544.stderr +++ b/testsuite/tests/haddock/should_compile_flag_haddock/T17544.stderr @@ -44,7 +44,8 @@ ({ T17544.hs:6:9-16 } (HsFunTy (NoExtField) - (HsUnrestrictedArrow) + (HsUnrestrictedArrow + (NormalSyntax)) ({ T17544.hs:6:9 } (HsTyVar (NoExtField) @@ -104,7 +105,8 @@ ({ T17544.hs:10:9-16 } (HsFunTy (NoExtField) - (HsUnrestrictedArrow) + (HsUnrestrictedArrow + (NormalSyntax)) ({ T17544.hs:10:9 } (HsTyVar (NoExtField) @@ -161,7 +163,8 @@ ({ T17544.hs:14:9-16 } (HsFunTy (NoExtField) - (HsUnrestrictedArrow) + (HsUnrestrictedArrow + (NormalSyntax)) ({ T17544.hs:14:9 } (HsTyVar (NoExtField) @@ -221,7 +224,8 @@ ({ T17544.hs:18:9-16 } (HsFunTy (NoExtField) - (HsUnrestrictedArrow) + (HsUnrestrictedArrow + (NormalSyntax)) ({ T17544.hs:18:9 } (HsTyVar (NoExtField) @@ -248,7 +252,8 @@ ({ T17544.hs:20:9-16 } (HsFunTy (NoExtField) - (HsUnrestrictedArrow) + (HsUnrestrictedArrow + (NormalSyntax)) ({ T17544.hs:20:9 } (HsTyVar (NoExtField) diff --git a/testsuite/tests/haddock/should_compile_flag_haddock/T17544_kw.stderr b/testsuite/tests/haddock/should_compile_flag_haddock/T17544_kw.stderr index 2681ca9fb9..ccba2caf27 100644 --- a/testsuite/tests/haddock/should_compile_flag_haddock/T17544_kw.stderr +++ b/testsuite/tests/haddock/should_compile_flag_haddock/T17544_kw.stderr @@ -85,7 +85,8 @@ (Nothing) (PrefixCon [(HsScaled - (HsUnrestrictedArrow) + (HsUnrestrictedArrow + (NormalSyntax)) ({ T17544_kw.hs:19:18-19 } (HsTupleTy (NoExtField) |