config: wrap match condition regex as re2

Author: yasunariw

lib/common.ml

@@ -15,6 +15,14 @@ module StringMap = struct
   let unwrap = to_list
 end
 
+module Re2 = struct
+  include Re2
+
+  let wrap s = create_exn s
+
+  let unwrap = Re2.to_string
+end
+
 let fmt_error fmt = Printf.ksprintf (fun s -> Error s) fmt
 
 let first_line s =

lib/rule.atd

@@ -1,3 +1,5 @@
+type regex = string wrap <ocaml module="Common.Re2">
+
 (* Text fields from the GitHub payload that can be used in a condition *)
 type comparable_field = [
 | Context <json name="context">
@@ -8,7 +10,7 @@ type comparable_field = [
 (* Checks whether a payload field matches the provided regex pattern *)
 type match_condition = {
   field : comparable_field;
-  re : string; (* expects a regex pattern *)
+  re : regex;
 }
 
 (* Specifies additional conditions the payload must meet for the status rule to match *)

lib/rule.ml

@@ -21,10 +21,7 @@ module Status = struct
         | Target_url -> notification.target_url
       in
       let rec match_condition = function
-        | Match { field; re } ->
-          value_of_field field
-          |> Option.map ~f:(fun f -> Re.Str.string_match (Re.Str.regexp_case_fold re) f 0)
-          |> Option.value ~default:false
+        | Match { field; re } -> value_of_field field |> Option.map ~f:(Re2.matches re) |> Option.value ~default:false
         | All_of conditions -> List.for_all conditions ~f:match_condition
         | One_of conditions -> List.exists conditions ~f:match_condition
         | Not condition -> not @@ match_condition condition