module Regex (Regex,mkRegex,matchRegex,Sub,mkSub,doSub,isMatch) where

import Text.Regex (Regex,mkRegex,matchRegex,subRegex)

type Sub = (Regex,String)

mkSub :: (String,String) -> Sub
mkSub (r,s) = (mkRegex r, s)

doSub :: String -> Sub -> String
doSub input (regex,replace) = subRegex regex input replace

isMatch :: String -> Regex -> Bool
isMatch text regex = case matchRegex regex text of
    Nothing -> False
    Just _  -> True