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

minor changes

Browse source
This commit is contained in:
Simon Cruanes 2021-09-25 20:51:18 -04:00
parent 938c7cb90a
commit 9c72797515
No known key found for this signature in database
GPG key ID: 4AC01D0849AA62B6
2 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/core/CCParse.ml
View file

@ -657,12 +657,12 @@ let take len : slice t = {
) )
} }
let any_chars len : _ t = take len >|= Slice.to_string let any_char_n len : _ t = take len >|= Slice.to_string
let exact s = { let exact s = {
run=fun st ~ok ~err -> run=fun st ~ok ~err ->
(* parse a string of length [String.length s] and compare with [s] *) (* parse a string of length [String.length s] and compare with [s] *)
(any_chars (String.length s)).run st (any_char_n (String.length s)).run st
~ok:(fun st s2 -> ~ok:(fun st s2 ->
if string_equal s s2 then ok st s if string_equal s s2 then ok st s
else ( else (

4
src/core/CCParse.mli
View file

@ -190,8 +190,8 @@ val any_char : char t
It still fails if the end of input was reached. It still fails if the end of input was reached.
@since NEXT_RELEASE *) @since NEXT_RELEASE *)
val any_chars : int -> string t val any_char_n : int -> string t
(** [any_chars len] parses exactly [len] characters from the input. (** [any_char_n len] parses exactly [len] characters from the input.
Fails if the input doesn't contain at least [len] chars. Fails if the input doesn't contain at least [len] chars.
@since NEXT_RELEASE *) @since NEXT_RELEASE *)