simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 11:15:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix: use labels in CCParse

Browse source
This commit is contained in:
Simon Cruanes 2021-12-02 11:38:22 -05:00
parent 9123f7907f
commit bee23722ea
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/core/CCParse.ml
View file

@ -758,7 +758,7 @@ let many p : _ t =
(fun self -> (fun self ->
try_or p try_or p
~f:(fun x -> self >|= fun tl -> x :: tl) ~f:(fun x -> self >|= fun tl -> x :: tl)
(pure [])) ~else_:(pure []))
(* (*
(* parse many [p], as a difference list *) (* parse many [p], as a difference list *)
@ -829,8 +829,8 @@ let sep ~by p =
<|> <|>
try_or by try_or by
~f:(fun _ -> Lazy.force read_p >|= fun tl -> x :: tl) ~f:(fun _ -> Lazy.force read_p >|= fun tl -> x :: tl)
(pure [x])) ~else_:(pure [x]))
(pure []) ~else_:(pure [])
) in ) in
Lazy.force read_p Lazy.force read_p