X-Git-Url: https://git.cyclocoop.org/?p=tool%2Fhledger.git;a=blobdiff_plain;f=hledger-print-csv.hs;h=cac402abcd62b252b9d581fec6a713ae7bb72c32;hp=efb7a6ef1464bf3ba640a9bc2852cfd2e6b52690;hb=cb540d8637cf0196f2bd2a192597afe9fadcdf19;hpb=9f1f7150c7bdd1dad4989c8f1b98068c01de9e48

diff --git a/hledger-print-csv.hs b/hledger-print-csv.hs
index efb7a6e..cac402a 100755
--- 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