simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 03:05:28 -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 ->
try_or p
~f:(fun x -> self >|= fun tl -> x :: tl)
(pure []))
~else_:(pure []))
(*
(* parse many [p], as a difference list *)
@ -829,8 +829,8 @@ let sep ~by p =
<|>
try_or by
~f:(fun _ -> Lazy.force read_p >|= fun tl -> x :: tl)
(pure [x]))
(pure [])
~else_:(pure [x]))
~else_:(pure [])
) in
Lazy.force read_p