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
|
||||
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
|
||||
|
||||
-- | Parse a date-time string to a time type, or raise an error.
|
||||
|
||||
Loading…
Reference in New Issue
Block a user