simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-11-07 21:15:19 +03:00
Code Issues 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) +
sum (map postingLines $ take pindex $ tpostings t)
where
-- How many lines are used to render this posting ?
postingLines p' = 1 + commentExtraLines (pcomment p')
-- How many extra lines does this possibly multi-line
-- transaction/posting comment add when rendered ?
-- How many extra lines does this comment add to a transaction or posting rendering ?
commentExtraLines c = max 0 (length (T.lines c) - 1)
errabsline = unPos tl + errrelline
txntxt = showTransaction t & textChomp & (<>"\n")