simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2025-01-07 11:19:32 +03:00
Code Issues Projects Releases Wiki Activity

dev: cleanups

Browse Source
This commit is contained in:
Simon Michael 2024-10-17 10:53:27 -10:00
parent f1ded22c97
commit 2d90550e25
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -420,7 +420,7 @@ partitionAndCheckConversionPostings check conversionaccts =
-- Left fold processes postings in parse order, so that eg inferred costs
-- will be added to the first (top-most) posting, not the last one.
foldlM select (([], ([], [])), Nothing)
-- The costless other postings are somehow reversed still; "second (second reverse" fixes that.
-- The costless other postings are somehow reversed still; "second (second reverse)" fixes that.
<&> fmap (second (second reverse) . fst)
where
select ((cs, others@(ps, os)), Nothing) np@(_, p)

4
hledger-lib/Hledger/Utils/Regex.hs
View File

@ -167,8 +167,8 @@ regexMatch = matchTest
-- | Tests whether a Regexp matches a Text.
--
-- This currently unpacks the Text to a String an works on that. This is due to
-- a performance bug in regex-tdfa (#9), which may or may not be relevant here.
-- This currently unpacks the Text to a String, to work around a performance bug
-- in regex-tdfa (#9), which may or may not be relevant here.
regexMatchText :: Regexp -> Text -> Bool
regexMatchText r = matchTest r . T.unpack