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

cli: changes to "hledger print -O csv" output

Browse Source
This commit is contained in:
Dmitry Astapov 2020-06-13 23:02:31 +01:00 committed by Simon Michael
parent 460508807f
commit 802378999f
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hledger/Hledger/Cli/Commands/Print.hs
View File

@ -148,7 +148,9 @@ transactionToCSV t =
postingToCSV :: Posting -> CSV postingToCSV :: Posting -> CSV
postingToCSV p = postingToCSV p =
map (\(a@(Amount {aquantity=q,acommodity=c})) -> map (\(a@(Amount {aquantity=q,acommodity=c})) ->
let a_ = a{acommodity=""} in -- commodity goes into separate column, so we suppress it, along with digit group
-- separators and prices
let a_ = a{acommodity="",astyle=(astyle a){asdigitgroups=Nothing},aprice=Nothing} in
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