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

lib: journalApplyAliases performance tweak

Browse Source
This commit is contained in:
Simon Michael 2020-11-25 21:01:05 -08:00
parent 0dc8eca68a
commit ea0d4901ab
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hledger-lib/Hledger/Data/Journal.hs
View File

@ -1230,6 +1230,8 @@ postingFindTag tagname p = find ((tagname==) . fst) $ postingAllTags p
-- | Apply some account aliases to all posting account names in the journal, as described by accountNameApplyAliases. -- | Apply some account aliases to all posting account names in the journal, as described by accountNameApplyAliases.
-- This can fail due to a bad replacement pattern in a regular expression alias. -- This can fail due to a bad replacement pattern in a regular expression alias.
journalApplyAliases :: [AccountAlias] -> Journal -> Either RegexError Journal journalApplyAliases :: [AccountAlias] -> Journal -> Either RegexError Journal
-- short circuit the common case, just in case there's a performance impact from txnTieKnot etc.
journalApplyAliases [] j = Right j
journalApplyAliases aliases j = journalApplyAliases aliases j =
case mapM (transactionApplyAliases aliases) $ jtxns j of case mapM (transactionApplyAliases aliases) $ jtxns j of
Right ts -> Right j{jtxns = ts} Right ts -> Right j{jtxns = ts}