From 881422cd0f63dcd3666361392142745e3f3a77ea Mon Sep 17 00:00:00 2001
From: Dmitry Astapov <dastapov@gmail.com>
Date: Sat, 12 Oct 2019 09:33:58 +0100
Subject: [PATCH] lib: fix recursive interpolation in CSV parser for fields
 with dashes

---
 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 4edd6d682..7aa6670fc 100644
--- a/hledger-lib/Hledger/Read/CsvReader.hs
+++ b/hledger-lib/Hledger/Read/CsvReader.hs
@@ -933,7 +933,7 @@ getEffectiveAssignment rules record f = lastMay $ assignmentsFor f
 -- | Render a field assigment's template, possibly interpolating referenced
 -- CSV field values. Outer whitespace is removed from interpolated values.
 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
     replace ('%':pat) = maybe pat (\i -> strip $ atDef "" record (i-1)) mindex
       where