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/ExactPrint.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/ExactPrint.hs')
| -rw-r--r-- | utils/check-exact/ExactPrint.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/utils/check-exact/ExactPrint.hs b/utils/check-exact/ExactPrint.hs index 4c8f3f27ac..3680405a0a 100644 --- a/utils/check-exact/ExactPrint.hs +++ b/utils/check-exact/ExactPrint.hs @@ -596,6 +596,7 @@ markAnnList' reallyTrail ann action = do debugM $ "markAnnList : " ++ showPprUnsafe (p, ann) mapM_ markAddEpAnn (al_open ann) unless reallyTrail $ markTrailing (al_trailing ann) -- Only makes sense for HsModule. + mark (sort $ al_rest ann) AnnSemi action debugM $ "markAnnList: calling markAddEpAnn on:" ++ showPprUnsafe (al_close ann) mapM_ markAddEpAnn (al_close ann) |