dépôts
/
tool
/
hledger.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Correction : devises.
[tool/hledger.git]
/
hledger-print-csv.hs
diff --git
a/hledger-print-csv.hs
b/hledger-print-csv.hs
index
efb7a6e
..
cac402a
100755
(executable)
--- a/
hledger-print-csv.hs
+++ b/
hledger-print-csv.hs
@@
-30,11
+30,12
@@
chomp = reverse . dropWhile isSpace . reverse . dropWhile isSpace
postingToCSV :: Posting -> CSV
postingToCSV p =
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 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 show
Amount $ negate a_
else "" in
+ let debit = if q > 0 then show
Amount a_
else "" in
account:amount:commodity:credit:debit:status:comment:[])
amounts
where
account:amount:commodity:credit:debit:status:comment:[])
amounts
where