Remove unused reference

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

View file

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

View file

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