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

register: comment

Browse Source
This commit is contained in:
Simon Michael 2015-06-27 06:40:43 -07:00
parent f9f0f16a9c
commit 4c6979c3fc
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
hledger/Hledger/Cli/Register.hs
View File

@ -149,6 +149,9 @@ postingsReportItemAsText opts (mdate, menddate, mdesc, p, b) =
_ -> (id,acctwidth) _ -> (id,acctwidth)
amt = showMixedAmountWithoutPrice $ pamount p amt = showMixedAmountWithoutPrice $ pamount p
bal = showMixedAmountWithoutPrice b bal = showMixedAmountWithoutPrice b
-- alternate behaviour, show null amounts as 0 instead of blank
-- amt = if null amt' then "0" else amt'
-- bal = if null bal' then "0" else bal'
(amtlines, ballines) = (lines amt, lines bal) (amtlines, ballines) = (lines amt, lines bal)
(amtlen, ballen) = (length amtlines, length ballines) (amtlen, ballen) = (length amtlines, length ballines)
numlines = max 1 (max amtlen ballen) numlines = max 1 (max amtlen ballen)