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

lib: allow recursive interpolation of fields with underscores in names

Browse Source
This commit is contained in:
Dmitry Astapov 2019-10-15 20:52:42 +01:00
parent 38db7eb24d
commit b5d4918c16
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

@ -950,7 +950,7 @@ getEffectiveAssignment rules record f = lastMay $ assignmentsFor f
-- | Render a field assigment's template, possibly interpolating referenced -- | Render a field assigment's template, possibly interpolating referenced
-- CSV field values. Outer whitespace is removed from interpolated values. -- CSV field values. Outer whitespace is removed from interpolated values.
renderTemplate :: CsvRules -> CsvRecord -> FieldTemplate -> String renderTemplate :: CsvRules -> CsvRecord -> FieldTemplate -> String
renderTemplate rules record t = regexReplaceBy "%[A-z0-9-]+" replace t renderTemplate rules record t = regexReplaceBy "%[A-z0-9_-]+" replace t
where where
replace ('%':pat) = maybe pat (\i -> strip $ atDef "" record (i-1)) mindex replace ('%':pat) = maybe pat (\i -> strip $ atDef "" record (i-1)) mindex
where where