module Text.Regex.Base.Impl(polymatch,polymatchM) where
import Prelude hiding (fail)
import Control.Monad.Fail (MonadFail(fail))
import Text.Regex.Base
import Data.Array((!))
regexFailed :: (MonadFail m) => m b
{-# INLINE regexFailed #-}
regexFailed :: m b
regexFailed = String -> m b
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m b) -> String -> m b
forall a b. (a -> b) -> a -> b
$ "regex failed to match"
actOn :: (RegexLike r s,MonadFail m) => ((s,MatchText s,s)->t) -> r -> s -> m t
{-# INLINE actOn #-}
actOn :: ((s, MatchText s, s) -> t) -> r -> s -> m t
actOn f :: (s, MatchText s, s) -> t
f r :: r
r s :: s
s = case r -> s -> Maybe (s, MatchText s, s)
forall regex source.
RegexLike regex source =>
regex -> source -> Maybe (source, MatchText source, source)
matchOnceText r
r s
s of
Nothing -> m t
forall (m :: * -> *) b. MonadFail m => m b
regexFailed
Just preMApost :: (s, MatchText s, s)
preMApost -> t -> m t
forall (m :: * -> *) a. Monad m => a -> m a
return ((s, MatchText s, s) -> t
f (s, MatchText s, s)
preMApost)
polymatch :: (RegexLike a b) => a -> b -> b
{-# INLINE polymatch #-}
polymatch :: a -> b -> b
polymatch r :: a
r s :: b
s = case a -> b -> Maybe (b, MatchText b, b)
forall regex source.
RegexLike regex source =>
regex -> source -> Maybe (source, MatchText source, source)
matchOnceText a
r b
s of
Nothing -> b
forall source. Extract source => source
empty
Just (_,ma :: MatchText b
ma,_) -> (b, (MatchOffset, MatchOffset)) -> b
forall a b. (a, b) -> a
fst (MatchText b
maMatchText b -> MatchOffset -> (b, (MatchOffset, MatchOffset))
forall i e. Ix i => Array i e -> i -> e
!0)
polymatchM :: (RegexLike a b,MonadFail m) => a -> b -> m b
{-# INLINE polymatchM #-}
polymatchM :: a -> b -> m b
polymatchM = ((b, MatchText b, b) -> b) -> a -> b -> m b
forall r s (m :: * -> *) t.
(RegexLike r s, MonadFail m) =>
((s, MatchText s, s) -> t) -> r -> s -> m t
actOn (\(_,ma :: MatchText b
ma,_)->(b, (MatchOffset, MatchOffset)) -> b
forall a b. (a, b) -> a
fst (MatchText b
maMatchText b -> MatchOffset -> (b, (MatchOffset, MatchOffset))
forall i e. Ix i => Array i e -> i -> e
!0))