slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

;dev: improve comment

Browse Source
This commit is contained in:
Simon Michael 2023-04-27 09:17:29 -10:00
parent 400f401d11
commit 9d0eb20ac5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hledger-lib/Hledger/Data/Errors.hs
View File

@ -125,9 +125,9 @@ makePostingErrorExcerpt p findpostingerrorcolumns =
commentExtraLines (tcomment t) + commentExtraLines (tcomment t) +
sum (map postingLines $ take pindex $ tpostings t) sum (map postingLines $ take pindex $ tpostings t)
where where
-- How many lines are used to render this posting ?
postingLines p' = 1 + commentExtraLines (pcomment p') postingLines p' = 1 + commentExtraLines (pcomment p')
-- How many extra lines does this possibly multi-line -- How many extra lines does this comment add to a transaction or posting rendering ?
-- transaction/posting comment add when rendered ?
commentExtraLines c = max 0 (length (T.lines c) - 1) commentExtraLines c = max 0 (length (T.lines c) - 1)
errabsline = unPos tl + errrelline errabsline = unPos tl + errrelline
txntxt = showTransaction t & textChomp & (<>"\n") txntxt = showTransaction t & textChomp & (<>"\n")