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

lib: only memoize in csv reader when there are more than 15 cond. blocks

Browse Source
This commit is contained in:
Dmitry Astapov 2020-06-22 19:12:00 +01:00 committed by Simon Michael
parent 8844ef1b5f
commit 21349c161e
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -333,13 +333,15 @@ defrules = CsvRules' {
-- | Create CsvRules from the content parsed out of the rules file -- | Create CsvRules from the content parsed out of the rules file
mkrules :: CsvRulesParsed -> CsvRules mkrules :: CsvRulesParsed -> CsvRules
mkrules rules = mkrules rules =
let conditionalblocks = reverse $ rconditionalblocks rules in let conditionalblocks = reverse $ rconditionalblocks rules
maybeMemo = if length conditionalblocks >= 15 then memo else id
in
CsvRules' { CsvRules' {
rdirectives=reverse $ rdirectives rules, rdirectives=reverse $ rdirectives rules,
rcsvfieldindexes=rcsvfieldindexes rules, rcsvfieldindexes=rcsvfieldindexes rules,
rassignments=reverse $ rassignments rules, rassignments=reverse $ rassignments rules,
rconditionalblocks=conditionalblocks, rconditionalblocks=conditionalblocks,
rblocksassigning = memo (\f -> filter (any ((==f).fst) . cbAssignments) conditionalblocks) rblocksassigning = maybeMemo (\f -> filter (any ((==f).fst) . cbAssignments) conditionalblocks)
} }
--- *** rules parsers --- *** rules parsers