update comments in CCParse

This commit is contained in:
Simon Cruanes 2017-01-24 23:28:08 +01:00
parent dbe00f6ca5
commit a0f3a5d24b

View file

@ -26,7 +26,7 @@ parse_string_exn ptree "((1 2) (3 (4 5)))" ;;
{6 Parse a list of words} {6 Parse a list of words}
{[ {[
open Containers_string.Parse;; open Containers.Parse;;
let p = U.list ~sep:"," U.word;; let p = U.list ~sep:"," U.word;;
parse_string_exn p "[abc , de, hello ,world ]";; parse_string_exn p "[abc , de, hello ,world ]";;
]} ]}
@ -39,7 +39,7 @@ let p = CCParse.(U.list ~sep:"," U.int);;
let l = CCList.(1 -- 100_000);; let l = CCList.(1 -- 100_000);;
let l_printed = let l_printed =
CCFormat.to_string (CCList.print ~sep:"," ~start:"[" ~stop:"]" CCInt.print) l;; CCFormat.(to_string (within "[" "]" (list ~sep:(return ",@,") int))) l;;
let l' = CCParse.parse_string_exn p l_printed;; let l' = CCParse.parse_string_exn p l_printed;;