exec flagsHEADmaster

1 files changed, 8 insertions, 5 deletions

diff --git a/Regex.icl b/Regex.icl
index e85c630..e9ee1f5 100644
--- a/Regex.icl
+++ b/Regex.icl
@@ -36,10 +36,13 @@ where
 		ccall cleanrgx_free "p:V:S"
 	}
 
-match :: !Regex !String -> Maybe Bool
-match {ptr} s = case match` ptr s of 0 = Just False; 1 = Just True; _ = Nothing
+match :: !Regex !Flags !String -> Maybe Bool
+match {ptr} flags s = case match` ptr flags s of
+  0 = Just False
+  1 = Just True
+  _ = Nothing
 where
-	match` :: !Int !String -> Int
-	match` ptr s = code {
-		ccall cleanrgx_exec "pS:I"
+	match` :: !Int !Int !String -> Int
+	match` ptr flags s = code {
+		ccall cleanrgx_exec "pIS:I"
 	}