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

parsing: don't fail when a csv amount has trailing whitespace (fixes #113)

Browse Source
This commit is contained in:
Simon Michael 2013-06-01 12:36:45 -07:00
parent cc087826e0
commit a26ab926d8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -593,7 +593,7 @@ getAmountStr rules record =
mamount = getEffectiveAssignment rules record "amount" mamount = getEffectiveAssignment rules record "amount"
mamountin = getEffectiveAssignment rules record "amount-in" mamountin = getEffectiveAssignment rules record "amount-in"
mamountout = getEffectiveAssignment rules record "amount-out" mamountout = getEffectiveAssignment rules record "amount-out"
render = fmap (renderTemplate rules record) render = fmap (strip . renderTemplate rules record)
in in
case (render mamount, render mamountin, render mamountout) of case (render mamount, render mamountin, render mamountout) of
(Just "", Nothing, Nothing) -> error' $ "amount has no value\n"++showRecord record (Just "", Nothing, Nothing) -> error' $ "amount has no value\n"++showRecord record