mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2025-12-06 11:15:31 -05:00
Remove unused reference
This commit is contained in:
parent
9bdf31b07c
commit
05e49a27e7
2 changed files with 5 additions and 7 deletions
|
|
@ -34,3 +34,4 @@
|
|||
- Francois Berenger (@UnixJunkie)
|
||||
- Hongchang Wu (@hongchangwu)
|
||||
- Nathan Rebours (@NathanReb)
|
||||
- @rymdhund
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue