module Text.Regex.Do.TypeDo where
import Text.Regex.Base.RegexLike as R
import Text.Regex.Do.TypeRegex
import Data.ByteString
newtype GroupReplacer b = GroupReplacer (MatchArray -> ReplaceAcc b -> ReplaceAcc b)
data ReplaceAcc b = ReplaceAcc {
acc::b,
pos_adj::Int
}
data Pattern a = Pattern a deriving (Functor)
data Body b = Body b deriving (Functor)
data Replacement r = Replacement r deriving (Functor)
type PosLen = (MatchOffset, MatchLength)
data ReplaceCase = Once
| All
| Utf8
| Multiline deriving Eq
type Opt_ a = R.RegexMaker Regex CompOption ExecOption a
type Rx_ a b = (Regex_ a, R.Extract b, R.RegexLike Regex b)
class Regex_ a where
r_::Pattern a -> Regex
instance Regex_ ByteString where
r_ (Pattern p0) = R.makeRegex p0
instance Regex_ String where
r_ (Pattern p0) = R.makeRegex p0
instance Regex_ Regex where
r_ (Pattern p0) = p0