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 =
-       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