upgrade to angstrom.0.15.0 (#240)

comby.opam

@@ -12,20 +12,20 @@ build: [
 depends: [
   "ocaml" {>= "4.08.1"}
   "core"
+  "dune" {>= "2.7.0"}
+  "angstrom" {>= "0.15.0"}
   "lwt" {= "4.5.0"}
+  "lwt_react"
   "conduit-lwt-unix"
+  "opium"
+  "patience_diff" {>= "v0.14" & < "v0.15"}
   "ppxlib"
   "ppx_deriving"
-  "angstrom" {< "0.14.0"}
-  "opium"
-  "pcre"
-  "patience_diff" {>= "v0.14" & < "v0.15"}
-  "tls"
-  "shell"
-  "lwt_react"
   "ppx_deriving_yojson" {>= "3.6.0"}
+  "pcre"
+  "shell"
   "toml" {>= "6.0.0"}
-  "dune" {>= "2.7.0"}
+  "tls"
   "bisect_ppx" {with-test & dev & >= "2.5.0"}
 ]
 depexts: [

lib/language/omega_rule.ml

@@ -245,6 +245,6 @@ let create rule =
     *> sep_by1 (spaces *> char ',' <* spaces) expression_parser
     <* end_of_input
   in
-  match parse_string rule_parser rule with
+  match parse_string ~consume:All rule_parser rule with
   | Ok rule -> Ok rule
   | Error error -> Or_error.error_string error

lib/matchers/omega.ml

@@ -329,7 +329,7 @@ module Make (Syntax : Syntax.S) (Info : Info.S) = struct
     List.fold_right p_list ~init:(return (Unit, acc)) ~f:(fun p acc ->
         let result =
           if debug then Format.printf "iterate fold_right %d@." !i;
-          match parse_string p "_signal_hole" with
+          match parse_string ~consume:All p "_signal_hole" with
           | Error s ->
             if debug then Format.printf "Composing p with terminating parser, error %s@." s;
             p *> acc
@@ -648,7 +648,7 @@ module Make (Syntax : Syntax.S) (Info : Info.S) = struct
            |>> generate_string_token_parser)
         ]
     in
-    match parse_string parser contents with
+    match parse_string ~consume:All parser contents with
     | Ok parsers -> sequence_chain ~left_delimiter ~right_delimiter parsers
     | Error _ ->
       failwith "If this failure happens it is a bug: Converting a \

lib/rewriter/rewrite_template.ml

@@ -20,7 +20,7 @@ let parse_first_label template =
       ; any_char >>= fun _ -> return None
       ]
   in
-  parse_string parser template
+  parse_string ~consume:All parser template
   |> function
   | Ok label -> List.find_map label ~f:ident
   | Error _ -> None