print: ensure 0 amounts also appear in the "debit" field

This commit is contained in:
Simon Michael 2017-01-10 08:58:11 -08:00
parent 5fa8780e3f
commit 4abd029bae

View File

@ -131,7 +131,7 @@ postingToCSV p =
let amount = showAmount a_ in let amount = showAmount a_ in
let commodity = T.unpack c in let commodity = T.unpack c in
let credit = if q < 0 then showAmount $ negate a_ else "" in let credit = if q < 0 then showAmount $ negate a_ else "" in
let debit = if q > 0 then showAmount a_ else "" in let debit = if q >= 0 then showAmount a_ else "" in
account:amount:commodity:credit:debit:status:comment:[]) account:amount:commodity:credit:debit:status:comment:[])
amounts amounts
where where