Skip to content
Snippets Groups Projects
Commit 4b4c65ff authored by Ryan Scott's avatar Ryan Scott Committed by Ben Gamari
Browse files

Patch regex-pcre-0.94.4

parent 62ed5bd8
No related branches found
No related tags found
No related merge requests found
diff --git a/Text/Regex/PCRE/Wrap.hsc b/Text/Regex/PCRE/Wrap.hsc
index 7201581..688801a 100644
--- a/Text/Regex/PCRE/Wrap.hsc
+++ b/Text/Regex/PCRE/Wrap.hsc
@@ -69,6 +69,8 @@ module Text.Regex.PCRE.Wrap(
retNoSubstring
) where
+import qualified Control.Monad.Fail as Fail
+
#if defined(HAVE_PCRE_H)
import Control.Monad(when)
import Data.Array(Array,accumArray)
@@ -140,7 +142,7 @@ configUTF8 :: Bool
(=~) :: (RegexMaker Regex CompOption ExecOption source,RegexContext Regex source1 target)
=> source1 -> source -> target
-(=~~) :: (RegexMaker Regex CompOption ExecOption source,RegexContext Regex source1 target,Monad m)
+(=~~) :: (RegexMaker Regex CompOption ExecOption source,RegexContext Regex source1 target,Fail.MonadFail m)
=> source1 -> source -> m target
#if defined(HAVE_PCRE_H)
@@ -160,7 +162,7 @@ instance RegexOptions Regex CompOption ExecOption where
q = makeRegex r
in match q x
--- (=~~) ::(RegexMaker Regex CompOption ExecOption source,RegexContext Regex source1 target,Monad m) => source1 -> source -> m target
+-- (=~~) ::(RegexMaker Regex CompOption ExecOption source,RegexContext Regex source1 target,Fail.MonadFail m) => source1 -> source -> m target
(=~~) x r = do (q :: Regex) <- makeRegexM r
matchM q x
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment