slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

csv reader: parse parenthesised amounts as negative

Browse Source
This commit is contained in:
Simon Michael 2012-11-26 01:56:01 +00:00
parent c553103caf
commit afb4fb0356
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hledger-lib/Hledger/Read/CsvReader.hs
View File

@ -432,7 +432,9 @@ transactionFromCsvRecord rules fields =
precomment = "" precomment = ""
baseacc = maybe (baseAccount rules) (atDef "" fields) (accountField rules) baseacc = maybe (baseAccount rules) (atDef "" fields) (accountField rules)
amountstr = getAmount rules fields amountstr = getAmount rules fields
amountstr' = strnegate amountstr where strnegate ('-':s) = s -- "negate" an amount string. An amount beginning with - or enclosed in parentheses is negative.
amountstr' = strnegate amountstr where strnegate ('(':s) | not (null s) && last s == ')' = init s
strnegate ('-':s) = s
strnegate s = '-':s strnegate s = '-':s
currency = maybe (fromMaybe "" $ baseCurrency rules) (atDef "" fields) (currencyField rules) currency = maybe (fromMaybe "" $ baseCurrency rules) (atDef "" fields) (currencyField rules)
amountstr'' = currency ++ amountstr' amountstr'' = currency ++ amountstr'