From 0d83bdf6d76e6991f5226da46fdb3ac72919fde7 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Wed, 8 Dec 2021 16:57:53 -1000 Subject: [PATCH] cln: csv: small rename --- hledger-lib/Hledger/Read/CsvReader.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/hledger-lib/Hledger/Read/CsvReader.hs b/hledger-lib/Hledger/Read/CsvReader.hs index 13c991543..366220d70 100644 --- a/hledger-lib/Hledger/Read/CsvReader.hs +++ b/hledger-lib/Hledger/Read/CsvReader.hs @@ -1244,8 +1244,8 @@ renderTemplate rules record t = maybe t mconcat $ parseMaybe <|> replaceCsvFieldReference rules record <$> referencep) t where - referencep = liftA2 T.cons (char '%') (takeWhile1P (Just "reference") isDescriptorChar) :: Parsec CustomErr Text Text - isDescriptorChar c = isAscii c && (isAlphaNum c || c == '_' || c == '-') + referencep = liftA2 T.cons (char '%') (takeWhile1P (Just "reference") isFieldNameChar) :: Parsec CustomErr Text Text + isFieldNameChar c = isAscii c && (isAlphaNum c || c == '_' || c == '-') -- | Replace something that looks like a reference to a csv field ("%date" or "%1) -- with that field's value. If it doesn't look like a field reference, or if we