postingToCSV :: Posting -> CSV
postingToCSV p =
- map (\((Amount {aquantity=q,acommodity=c})) ->
- let amount = show q in
+ map (\(a@(Amount {aquantity=q,acommodity=c})) ->
+ let a_ = a{acommodity=""} in
+ let amount = showAmount a_ in
let commodity = c in
- let credit = if q < 0 then show $ negate q else "" in
- let debit = if q > 0 then show q else "" in
+ let credit = if q < 0 then showAmount $ negate a_ else "" in
+ let debit = if q > 0 then showAmount a_ else "" in
account:amount:commodity:credit:debit:status:comment:[])
amounts
where