Fix Re.get deprecation warnings

Changed calls from `Re.get` to `Re.Group.get` to avoid deprecation warnings.
arenadotio · Jul 8, 2019 · f87475d · f87475d
1 parent 03249c5
commit f87475d
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/pgx/src/pgx_value.ml b/pgx/src/pgx_value.ml
@@ -135,11 +135,11 @@ let to_inet' =
   fun str ->
     try
       let subs = Re.exec re str in
-      let addr = Unix.inet_addr_of_string (Re.get subs 1) in
+      let addr = Unix.inet_addr_of_string (Re.Group.get subs 1) in
       (* optional match *)
-      let mask = try (Re.get subs 3) with Not_found -> "" in
+      let mask = try (Re.Group.get subs 3) with Not_found -> "" in
       if mask = ""
-      then (addr, (if (Re.get subs 2) = "." then 32 else 128))
+      then (addr, (if (Re.Group.get subs 2) = "." then 32 else 128))
       else (addr, int_of_string mask)
     with _ -> convert_failure "inet" str
 
@@ -258,7 +258,7 @@ let to_point' =
   fun str ->
     try
       let subs = Re.exec point_re str in
-      (float_of_string (Re.get subs 1), float_of_string (Re.get subs 2))
+      (float_of_string (Re.Group.get subs 1), float_of_string (Re.Group.get subs 2))
     with
     | e -> Printexc.to_string e |> print_endline; convert_failure "point" str