remove dead code

This commit is contained in:
Simon Michael 2008-10-15 22:18:05 +00:00
parent b4ade0985f
commit ba67e4c0a9

View File

@ -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.