diff options
| author | Alan Zimmerman <alan.zimm@gmail.com> | 2021-03-25 21:38:13 +0000 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-03-31 11:13:28 -0400 |
| commit | d03005e642710d0f1f78757292e0fe65287e5f0a (patch) | |
| tree | 2bd2c11a00577649ac19ddc6aa9705efa19bc8e5 /utils/check-exact/Transform.hs | |
| parent | 0fe5175ac537c0ce2afe969ec82a0d1c73a4ae38 (diff) | |
| download | haskell-d03005e642710d0f1f78757292e0fe65287e5f0a.tar.gz | |
EPA : rename 'api annotations' to 'exact print annotations'
In comments, and notes.
Follow-up from !2418, see #19579
Diffstat (limited to 'utils/check-exact/Transform.hs')
| -rw-r--r-- | utils/check-exact/Transform.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/utils/check-exact/Transform.hs b/utils/check-exact/Transform.hs index 740591250c..60a059cb3c 100644 --- a/utils/check-exact/Transform.hs +++ b/utils/check-exact/Transform.hs @@ -663,7 +663,7 @@ balanceCommentsMatch (L l (Match am mctxt pats (GRHSs xg grhss binds))) = do where simpleBreak (r,_) = r /= 0 (SrcSpanAnn an1 _loc1) = l - anc1 = addCommentOrigDeltas $ apiAnnComments an1 + anc1 = addCommentOrigDeltas $ epAnnComments an1 cs1f = getFollowingComments anc1 -- (move',stay') = break simpleBreak (commentsDeltas (anchorFromLocatedA (L l ())) cs1f) (move',stay') = break simpleBreak (trailingCommentsDeltas (anchorFromLocatedA (L l ())) cs1f) @@ -734,8 +734,8 @@ balanceComments' la1 la2 = do simpleBreak n (r,_) = r > n L (SrcSpanAnn an1 loc1) f = la1 L (SrcSpanAnn an2 loc2) s = la2 - anc1 = addCommentOrigDeltas $ apiAnnComments an1 - anc2 = addCommentOrigDeltas $ apiAnnComments an2 + anc1 = addCommentOrigDeltas $ epAnnComments an1 + anc2 = addCommentOrigDeltas $ epAnnComments an2 cs1f = getFollowingComments anc1 cs2b = priorComments anc2 (stay'',move') = break (simpleBreak 1) (priorCommentsDeltas (anchorFromLocatedA la2) cs2b) @@ -854,7 +854,7 @@ balanceSameLineComments (L la (Match anm mctxt pats (GRHSs x grhss lb))) = do (L lg (GRHS ga gs rhs):grs) -> (la'',reverse $ (L lg (GRHS ga' gs rhs)):grs,[(gac,(csp,csf))]) where (SrcSpanAnn an1 _loc1) = la - anc1 = addCommentOrigDeltas $ apiAnnComments an1 + anc1 = addCommentOrigDeltas $ epAnnComments an1 (EpAnn anc an _) = ga :: EpAnn' GrhsAnn (csp,csf) = case anc1 of AnnComments cs -> ([],cs) @@ -864,7 +864,7 @@ balanceSameLineComments (L la (Match anm mctxt pats (GRHSs x grhss lb))) = do stay = map snd stay' cs1 = AnnCommentsBalanced csp stay - gac = addCommentOrigDeltas $ apiAnnComments ga + gac = addCommentOrigDeltas $ epAnnComments ga gfc = getFollowingComments gac gac' = setFollowingComments gac (sort $ gfc ++ move) ga' = (EpAnn anc an gac') |