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

modify CCParse.U.list to skip newlines

Browse source
This commit is contained in:
Simon Cruanes 2015-08-24 11:28:51 +02:00
parent 641ab6f06e
commit 8e368a3f0b
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/string/CCParse.ml
View file

@ -199,9 +199,9 @@ module U = struct
let sep_ = sep let sep_ = sep
let list ?(start="[") ?(stop="]") ?(sep=";") p = let list ?(start="[") ?(stop="]") ?(sep=";") p =
string start *> skip_space *> string start *> skip_white *>
sep_ ~by:(skip_space *> string sep *> skip_space) p <* sep_ ~by:(skip_white *> string sep *> skip_white) p <*
skip_space <* string stop skip_white <* string stop
let int = let int =
chars1_if (is_num ||| (=) '-') chars1_if (is_num ||| (=) '-')