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 /utils | |
| 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 'utils')
| -rw-r--r-- | utils/check-exact/Main.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/utils/check-exact/Main.hs b/utils/check-exact/Main.hs index d170e5e945..b83cc9cd86 100644 --- a/utils/check-exact/Main.hs +++ b/utils/check-exact/Main.hs @@ -37,8 +37,8 @@ import GHC.Data.FastString _tt :: IO () -- _tt = testOneFile changers "/home/alanz/mysrc/git.haskell.org/ghc/_build/stage1/lib" -_tt = testOneFile changers "/home/alanz/mysrc/git.haskell.org/worktree/exactprint/_build/stage1/lib" --- _tt = testOneFile changers "/home/alanz/mysrc/git.haskell.org/worktree/epw/_build/stage1/lib" +-- _tt = testOneFile changers "/home/alanz/mysrc/git.haskell.org/worktree/exactprint/_build/stage1/lib" +_tt = testOneFile changers "/home/alanz/mysrc/git.haskell.org/worktree/epw/_build/stage1/lib" -- "../../testsuite/tests/ghc-api/exactprint/RenameCase1.hs" (Just changeRenameCase1) -- "../../testsuite/tests/ghc-api/exactprint/LayoutLet2.hs" (Just changeLayoutLet2) @@ -197,7 +197,8 @@ _tt = testOneFile changers "/home/alanz/mysrc/git.haskell.org/worktree/exactprin -- "../../testsuite/tests/printer/PprLinearArrow.hs" Nothing -- "../../testsuite/tests/printer/PprSemis.hs" Nothing -- "../../testsuite/tests/printer/PprEmptyMostly.hs" Nothing - "../../testsuite/tests/parser/should_compile/DumpSemis.hs" Nothing + -- "../../testsuite/tests/parser/should_compile/DumpSemis.hs" Nothing + "../../testsuite/tests/printer/Test20256.hs" Nothing -- cloneT does not need a test, function can be retired |