summaryrefslogtreecommitdiff
path: root/testsuite/tests/ghc-api
diff options
context:
space:
mode:
authorAlan Zimmerman <alan.zimm@gmail.com>2022-12-11 13:34:24 +0000
committerMarge Bot <ben+marge-bot@smart-cactus.org>2022-12-13 22:19:50 -0500
commit9f3011896aa3dc8cc14bd61ccb68ab09e17c330e (patch)
tree12e8b2c5799784928ef1b183870b8f653dc02d12 /testsuite/tests/ghc-api
parent884790e2f3480dfcd73b1c094123555956eac6e0 (diff)
downloadhaskell-9f3011896aa3dc8cc14bd61ccb68ab09e17c330e.tar.gz
EPA: When splitting out header comments, keep ones for first decl
Any comments immediately preceding the first declaration are no longer kept as header comments, but attach to the first declaration instead.
Diffstat (limited to 'testsuite/tests/ghc-api')
-rw-r--r--testsuite/tests/ghc-api/exactprint/Test20239.stderr17
1 files changed, 9 insertions, 8 deletions
diff --git a/testsuite/tests/ghc-api/exactprint/Test20239.stderr b/testsuite/tests/ghc-api/exactprint/Test20239.stderr
index 2bac5ab532..bcbb818b05 100644
--- a/testsuite/tests/ghc-api/exactprint/Test20239.stderr
+++ b/testsuite/tests/ghc-api/exactprint/Test20239.stderr
@@ -19,14 +19,7 @@
[]
[]))
(EpaCommentsBalanced
- [(L
- (Anchor
- { Test20239.hs:3:1-28 }
- (UnchangedAnchor))
- (EpaComment
- (EpaLineComment
- "-- | Leading Haddock Comment")
- { Test20239.hs:1:18-22 }))]
+ []
[(L
(Anchor
{ Test20239.hs:8:1 }
@@ -54,6 +47,14 @@
(EpaComments
[(L
(Anchor
+ { Test20239.hs:3:1-28 }
+ (UnchangedAnchor))
+ (EpaComment
+ (EpaLineComment
+ "-- | Leading Haddock Comment")
+ { Test20239.hs:1:18-22 }))
+ ,(L
+ (Anchor
{ Test20239.hs:7:34-63 }
(UnchangedAnchor))
(EpaComment