EPA: properly capture leading semicolons in statement lists

For the fragment

    blah = do {
     ; print "a"
     ; print "b"
     }

capture the leading semicolon before 'print "a"' in
'al_rest' in AnnList instead of in 'al_trailing'.

Closes #19798

1 files changed, 6 insertions, 0 deletions

diff --git a/testsuite/tests/printer/Test19798.hs b/testsuite/tests/printer/Test19798.hs
new file mode 100644
index 0000000000..0b9e5162f1
--- /dev/null
+++ b/testsuite/tests/printer/Test19798.hs
@@ -0,0 +1,6 @@
+module Test19798 where
+
+blah = do {
+ ; print "a"
+ ; print "b"
+ }