diff options
| author | Alan Zimmerman <alan.zimm@gmail.com> | 2021-05-06 18:47:51 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-05-09 18:13:40 -0400 |
| commit | 736d47ffb7370ba4348b142c913b88e4c82347d0 (patch) | |
| tree | d6525cbfe660a71d056ee61465b38a377c73274d /utils/check-exact/Main.hs | |
| parent | ad5a3aeb1d3094acbc17f07a2cc8388676d59dd1 (diff) | |
| download | haskell-736d47ffb7370ba4348b142c913b88e4c82347d0.tar.gz | |
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
Diffstat (limited to 'utils/check-exact/Main.hs')
| -rw-r--r-- | utils/check-exact/Main.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/utils/check-exact/Main.hs b/utils/check-exact/Main.hs index a332cc5a8c..27a24f1804 100644 --- a/utils/check-exact/Main.hs +++ b/utils/check-exact/Main.hs @@ -114,7 +114,7 @@ _tt = testOneFile changers "/home/alanz/mysrc/git.haskell.org/worktree/exactprin -- "../../testsuite/tests/printer/Ppr026.hs" Nothing -- "../../testsuite/tests/printer/Ppr027.hs" Nothing -- "../../testsuite/tests/printer/Ppr028.hs" Nothing - "../../testsuite/tests/printer/Ppr029.hs" Nothing + -- "../../testsuite/tests/printer/Ppr029.hs" Nothing -- "../../testsuite/tests/printer/Ppr030.hs" Nothing -- "../../testsuite/tests/printer/Ppr031.hs" Nothing -- "../../testsuite/tests/printer/Ppr032.hs" Nothing @@ -173,6 +173,7 @@ _tt = testOneFile changers "/home/alanz/mysrc/git.haskell.org/worktree/exactprin -- "../../testsuite/tests/printer/Test16236.hs" Nothing -- "../../testsuite/tests/printer/Test17519.hs" Nothing -- "../../testsuite/tests/printer/InTreeAnnotations1.hs" Nothing + "../../testsuite/tests/printer/Test19798.hs" Nothing -- "../../testsuite/tests/qualifieddo/should_compile/qdocompile001.hs" Nothing -- "../../testsuite/tests/typecheck/should_fail/StrictBinds.hs" Nothing |