balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Lwt_utils: fix read_mbytes

Browse Source
This commit is contained in:
Vincent Bernardoff 2016-11-15 16:57:47 +01:00 committed by Grégoire Henry
parent 8680d98ecd
commit f7b149c9ed
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/utils/lwt_utils.ml
View File

@ -242,8 +242,9 @@ let read_mbytes ?(pos=0) ?len fd buf =
if len = 0 then if len = 0 then
Lwt.return_unit Lwt.return_unit
else else
Lwt_bytes.read fd buf pos len >>= fun nb_read -> Lwt_bytes.read fd buf pos len >>= function
inner (pos + nb_read) (len - nb_read) | 0 -> Lwt.fail End_of_file (* other endpoint cleanly closed its connection *)
| nb_read -> inner (pos + nb_read) (len - nb_read)
in in
inner pos len inner pos len