From a26ab926d887144556828854465bc792346d1ba7 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Sat, 1 Jun 2013 12:36:45 -0700 Subject: [PATCH] parsing: don't fail when a csv amount has trailing whitespace (fixes #113) --- hledger-lib/Hledger/Read/CsvReader.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hledger-lib/Hledger/Read/CsvReader.hs b/hledger-lib/Hledger/Read/CsvReader.hs index da2c12ed1..d516012a9 100644 --- a/hledger-lib/Hledger/Read/CsvReader.hs +++ b/hledger-lib/Hledger/Read/CsvReader.hs @@ -593,7 +593,7 @@ getAmountStr rules record = mamount = getEffectiveAssignment rules record "amount" mamountin = getEffectiveAssignment rules record "amount-in" mamountout = getEffectiveAssignment rules record "amount-out" - render = fmap (renderTemplate rules record) + render = fmap (strip . renderTemplate rules record) in case (render mamount, render mamountin, render mamountout) of (Just "", Nothing, Nothing) -> error' $ "amount has no value\n"++showRecord record