#if __GLASGOW_HASKELL__ >= 800
#endif
module Text.RE.TDFA.Text.Lazy
(
(*=~)
, (?=~)
, (*=~/)
, (?=~/)
, (=~)
, (=~~)
, Matches
, matchesSource
, allMatches
, anyMatches
, countMatches
, matches
, Match
, matchSource
, matched
, matchedText
, RE
, SimpleREOptions(..)
, reSource
, compileRegex
, compileRegexWith
, escape
, escapeWith
, module Text.RE.TDFA.RE
) where
import Prelude.Compat
import qualified Data.Text.Lazy as TL
import Data.Typeable
import Text.Regex.Base
import Text.RE
import Text.RE.Internal.AddCaptureNames
import Text.RE.SearchReplace
import Text.RE.Types.IsRegex
import Text.RE.Types.REOptions
import Text.RE.Types.Replace
import Text.RE.TDFA.RE
import qualified Text.Regex.TDFA as TDFA
(*=~) :: TL.Text
-> RE
-> Matches TL.Text
(*=~) bs rex = addCaptureNamesToMatches (reCaptureNames rex) $ match (reRegex rex) bs
(?=~) :: TL.Text
-> RE
-> Match TL.Text
(?=~) bs rex = addCaptureNamesToMatch (reCaptureNames rex) $ match (reRegex rex) bs
(?=~/) :: TL.Text -> SearchReplace RE TL.Text -> TL.Text
(?=~/) = flip searchReplaceFirst
(*=~/) :: TL.Text -> SearchReplace RE TL.Text -> TL.Text
(*=~/) = flip searchReplaceAll
(=~) :: ( Typeable a
, RegexContext TDFA.Regex TL.Text a
, RegexMaker TDFA.Regex TDFA.CompOption TDFA.ExecOption String
)
=> TL.Text
-> RE
-> a
(=~) bs rex = addCaptureNames (reCaptureNames rex) $ match (reRegex rex) bs
(=~~) :: ( Monad m
, Functor m
, Typeable a
, RegexContext TDFA.Regex TL.Text a
, RegexMaker TDFA.Regex TDFA.CompOption TDFA.ExecOption String
)
=> TL.Text
-> RE
-> m a
(=~~) bs rex = addCaptureNames (reCaptureNames rex) <$> matchM (reRegex rex) bs
instance IsRegex RE TL.Text where
matchOnce = flip (?=~)
matchMany = flip (*=~)
makeRegexWith = \o -> compileRegexWith o . unpackR
makeSearchReplaceWith = \o r t -> compileSearchReplaceWith o (unpackR r) (unpackR t)
regexSource = packR . reSource