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

;mark more partial functions (#1312)

Browse Source
This commit is contained in:
Simon Michael 2020-08-05 17:29:43 -07:00
parent 3f55c23603
commit ede4bfd5b4
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -69,16 +69,16 @@ type Replacement = String
-- | Convert our string-based Regexp to a real Regex.
-- Or if it's not well formed, call error with a "malformed regexp" message.
toRegex :: Regexp -> Regex
toRegex = memo (compileRegexOrError defaultCompOpt defaultExecOpt)
toRegex = memo (compileRegexOrError defaultCompOpt defaultExecOpt) -- PARTIAL:
-- | Like toRegex but make a case-insensitive Regex.
toRegexCI :: Regexp -> Regex
toRegexCI = memo (compileRegexOrError defaultCompOpt{caseSensitive=False} defaultExecOpt)
toRegexCI = memo (compileRegexOrError defaultCompOpt{caseSensitive=False} defaultExecOpt) -- PARTIAL:
compileRegexOrError :: CompOption -> ExecOption -> Regexp -> Regex
compileRegexOrError compopt execopt r =
fromMaybe
(errorWithoutStackTrace $ "this regular expression could not be compiled: " ++ show r) $
(error' $ "this regular expression could not be compiled: " ++ show r) $ -- PARTIAL:
makeRegexOptsM compopt execopt r
-- regexMatch' :: RegexContext Regexp String a => Regexp -> String -> a