mirror of
https://github.com/comby-tools/comby.git
synced 2024-09-11 13:25:36 +03:00
upgrade to angstrom.0.15.0 (#240)
This commit is contained in:
parent
54ccd0633a
commit
8831557839
16
comby.opam
16
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: [
|
||||
|
@ -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
|
||||
|
@ -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 \
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user