From 8229885cb6a9f78ab09468f3797e3ec48ea24f82 Mon Sep 17 00:00:00 2001
From: Alan Zimmerman <alan.zimm@gmail.com>
Date: Mon, 7 Mar 2022 22:23:29 +0000
Subject: EPA: let stmt with semicolon has wrong anchor

The code

   let ;x =1

Captures the semicolon annotation, but did not widen the anchor in the
ValBinds.

Fix that.

Closes #20247
---
 testsuite/tests/printer/Makefile     | 6 ++++++
 testsuite/tests/printer/Test20247.hs | 4 ++++
 testsuite/tests/printer/all.T        | 1 +
 3 files changed, 11 insertions(+)
 create mode 100644 testsuite/tests/printer/Test20247.hs

(limited to 'testsuite/tests/printer')

diff --git a/testsuite/tests/printer/Makefile b/testsuite/tests/printer/Makefile
index 749315c60a..2c4195eeb1 100644
--- a/testsuite/tests/printer/Makefile
+++ b/testsuite/tests/printer/Makefile
@@ -734,6 +734,12 @@ Test20243:
 	$(CHECK_PPR)   $(LIBDIR) Test20243.hs
 	$(CHECK_EXACT) $(LIBDIR) Test20243.hs
 
+.PHONY: Test20247
+Test20247:
+	$(CHECK_PPR)   $(LIBDIR) Test20247.hs
+	$(CHECK_EXACT) $(LIBDIR) Test20247.hs
+
+
 .PHONY: Test20258
 Test20258:
 	$(CHECK_PPR)   $(LIBDIR) Test20258.hs
diff --git a/testsuite/tests/printer/Test20247.hs b/testsuite/tests/printer/Test20247.hs
new file mode 100644
index 0000000000..8c2521fe9a
--- /dev/null
+++ b/testsuite/tests/printer/Test20247.hs
@@ -0,0 +1,4 @@
+module Test20247 where
+
+foo = do
+  let ;x =1
diff --git a/testsuite/tests/printer/all.T b/testsuite/tests/printer/all.T
index 3d7c28e453..4562acc8e5 100644
--- a/testsuite/tests/printer/all.T
+++ b/testsuite/tests/printer/all.T
@@ -173,6 +173,7 @@ test('PprUnicodeSyntax', [ignore_stderr, req_ppr_deps], makefile_test, ['PprUnic
 test('PprCommentPlacement2', [ignore_stderr, req_ppr_deps], makefile_test, ['PprCommentPlacement2'])
 
 test('Test20243', [ignore_stderr, req_ppr_deps], makefile_test, ['Test20243'])
+test('Test20247', [ignore_stderr, req_ppr_deps], makefile_test, ['Test20247'])
 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'])
-- 
cgit v1.2.1