extra/hledger-register-csv: fix breakage from aa85e786

This commit is contained in:
Simon Michael 2014-10-17 16:31:58 -07:00
parent d1618aaca8
commit 1e54797d49

View File

@ -41,7 +41,7 @@ postingsReportAsCsv (_,is) =
map postingsReportItemAsCsvRecord is
postingsReportItemAsCsvRecord :: PostingsReportItem -> Record
postingsReportItemAsCsvRecord (_, _, p, b) = [date,desc,acct,amt,bal]
postingsReportItemAsCsvRecord (_, _, _, p, b) = [date,desc,acct,amt,bal]
where
date = showDate $ postingDate p
desc = maybe "" tdescription $ ptransaction p