update doc

This commit is contained in:
Simon Cruanes 2014-12-16 23:09:07 +01:00
parent 8f5fc7334d
commit eda9b08c1d

View file

@ -47,9 +47,10 @@ Examples:
# CCIO.( # CCIO.(
with_in "/tmp/input" with_in "/tmp/input"
(fun ic -> (fun ic ->
with_out ~flags:[Open_creat] ~mode:0o644 "/tmp/output" let chunks = read_chunks ic in
with_out ~flags:[Open_creat; Open_wronly] ~mode:0o644 "/tmp/output"
(fun oc -> (fun oc ->
Seq.chunks 512 ic |> Seq.to_output oc write_gen oc chunks
) )
) )
) ;; ) ;;