remove dead code
This commit is contained in:
parent
b4ade0985f
commit
ba67e4c0a9
@ -59,14 +59,6 @@ containsRegex r s = case matchRegex r s of
|
|||||||
Just _ -> True
|
Just _ -> True
|
||||||
otherwise -> False
|
otherwise -> False
|
||||||
|
|
||||||
-- | Convert a list of strings (possibly with regular expression syntax)
|
|
||||||
-- to a regular expression matching any of them, or a wildcard if there
|
|
||||||
-- are none.
|
|
||||||
combinedRegex :: [String] -> Regex
|
|
||||||
combinedRegex [] = mkRegex ".*"
|
|
||||||
combinedRegex args = mkRegex $ concat $ ["("] ++ intersperse "|" args ++ [")"]
|
|
||||||
|
|
||||||
|
|
||||||
-- time
|
-- time
|
||||||
|
|
||||||
-- | Parse a date-time string to a time type, or raise an error.
|
-- | Parse a date-time string to a time type, or raise an error.
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user