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

fix: use precompiled regexes to handle case insensitivity correctly

Browse Source
This commit is contained in:
jneubrand 2025-06-30 23:49:59 +02:00 committed by Simon Michael
parent 31dc8a090e
commit 7482f1efc3
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -78,8 +78,7 @@ import qualified Data.Text as T
import Text.Regex.TDFA (
Regex, CompOption(..), defaultCompOpt, defaultExecOpt,
makeRegexOptsM, AllMatches(getAllMatches), match, MatchText,
RegexLike(..), RegexMaker(..), RegexOptions(..), RegexContext(..),
(=~)
RegexLike(..), RegexMaker(..), RegexOptions(..), RegexContext(..)
)
@ -179,8 +178,8 @@ regexMatchText r = matchTest r . T.unpack
-- Regex to a Text.
regexMatchTextGroups :: Regexp -> Text -> [Text]
regexMatchTextGroups r txt = let
pat = reString r
(_,_,_,matches) = txt =~ pat :: (Text,Text,Text,[Text])
pat = reCompiled r
(_,_,_,matches) = match pat txt :: (Text,Text,Text,[Text])
in matches
--------------------------------------------------------------------------------