diff options
| author | Alan Zimmerman <alan.zimm@gmail.com> | 2022-03-10 23:23:16 +0000 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-05-11 08:23:33 -0400 |
| commit | 4a4c77ed8f16f157dd647593de58840b024bbd2d (patch) | |
| tree | ca61146523ef92158c599d9693bd9583c08e6146 /testsuite/tests/printer | |
| parent | 8500206ea7084f3914efd3fe7f4336f2893eb4ac (diff) | |
| download | haskell-4a4c77ed8f16f157dd647593de58840b024bbd2d.tar.gz | |
EPA: do statement with leading semicolon has wrong anchor
The code
do; a <- doAsync; b
Generated an incorrect Anchor for the statement list that starts after
the first semicolon.
This commit fixes it.
Closes #20256
Diffstat (limited to 'testsuite/tests/printer')
| -rw-r--r-- | testsuite/tests/printer/Makefile | 5 | ||||
| -rw-r--r-- | testsuite/tests/printer/Test20256.hs | 5 | ||||
| -rw-r--r-- | testsuite/tests/printer/all.T | 1 |
3 files changed, 11 insertions, 0 deletions
diff --git a/testsuite/tests/printer/Makefile b/testsuite/tests/printer/Makefile index 2c4195eeb1..e80655d83f 100644 --- a/testsuite/tests/printer/Makefile +++ b/testsuite/tests/printer/Makefile @@ -754,3 +754,8 @@ Test20297: Test20846: $(CHECK_PPR) $(LIBDIR) Test20846.hs $(CHECK_EXACT) $(LIBDIR) Test20846.hs + +.PHONY: Test20256 +Test20256: + $(CHECK_PPR) $(LIBDIR) Test20256.hs + $(CHECK_EXACT) $(LIBDIR) Test20256.hs diff --git a/testsuite/tests/printer/Test20256.hs b/testsuite/tests/printer/Test20256.hs new file mode 100644 index 0000000000..4ffa9a76f0 --- /dev/null +++ b/testsuite/tests/printer/Test20256.hs @@ -0,0 +1,5 @@ +module Test20256 where + +foo = do + ; a <- doAsync + ; b diff --git a/testsuite/tests/printer/all.T b/testsuite/tests/printer/all.T index 4562acc8e5..12b3960a7a 100644 --- a/testsuite/tests/printer/all.T +++ b/testsuite/tests/printer/all.T @@ -174,6 +174,7 @@ test('PprCommentPlacement2', [ignore_stderr, req_ppr_deps], makefile_test, ['Ppr test('Test20243', [ignore_stderr, req_ppr_deps], makefile_test, ['Test20243']) test('Test20247', [ignore_stderr, req_ppr_deps], makefile_test, ['Test20247']) +test('Test20256', [ignore_stderr, req_ppr_deps], makefile_test, ['Test20256']) test('Test20258', [ignore_stderr, req_ppr_deps], makefile_test, ['Test20258']) test('Test20297', [ignore_stderr, req_ppr_deps], makefile_test, ['Test20297']) test('Test20846', [ignore_stderr, req_ppr_deps], makefile_test, ['Test20846']) |