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

Remove unused reference

Browse source
This commit is contained in:
rymdhund 2019-04-29 07:31:46 +00:00 • committed by Simon Cruanes
parent 9bdf31b07c
commit 05e49a27e7
2 changed files with 5 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
AUTHORS.adoc
View file

@ -34,3 +34,4 @@
- Francois Berenger (@UnixJunkie) - Francois Berenger (@UnixJunkie)
- Hongchang Wu (@hongchangwu) - Hongchang Wu (@hongchangwu)
- Nathan Rebours (@NathanReb) - Nathan Rebours (@NathanReb)
- @rymdhund

11
src/core/CCIO.ml
View file

@ -67,14 +67,11 @@ let with_in ?(mode=0o644) ?(flags=[Open_text]) filename f =
let read_chunks ?(size=1024) ic = let read_chunks ?(size=1024) ic =
let buf = Bytes.create size in let buf = Bytes.create size in
let eof = ref false in
let next() = let next() =
if !eof then None let n = input ic buf 0 size in
else if n = 0
let n = input ic buf 0 size in then None
if n = 0 else Some (Bytes.sub_string buf 0 n)
then None
else Some (Bytes.sub_string buf 0 n)
in in
next next