robur/http-mirage-client
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix the ownership of the given bigstring by the underlying http scheduler

Browse source
This commit is contained in:
Romain Calascibetta 2023-02-01 12:38:01 +01:00
parent d2de9c5982
commit cf9188f78a
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/http_mirage_client.ml
View file

@ -176,8 +176,9 @@ let single_http_1_1_request
(Httpaf.Headers.to_list response.Httpaf.Response.headers) (Httpaf.Headers.to_list response.Httpaf.Response.headers)
} in } in
let rec on_read on_eof acc ba ~off ~len = let rec on_read on_eof acc ba ~off ~len =
let str = Bigstringaf.substring ~off ~len ba in
let acc = let acc =
acc >>= fun acc -> f response acc (Bigstringaf.substring ~off ~len ba) acc >>= fun acc -> f response acc str
in in
Httpaf.Body.schedule_read body ~on_read:(on_read on_eof acc) Httpaf.Body.schedule_read body ~on_read:(on_read on_eof acc)
~on_eof:(on_eof response acc) in ~on_eof:(on_eof response acc) in
@ -230,8 +231,9 @@ let single_h2_request
; headers= response.H2.Response.headers ; headers= response.H2.Response.headers
} in } in
let rec on_read on_eof acc ba ~off ~len = let rec on_read on_eof acc ba ~off ~len =
let str = Bigstringaf.substring ~off ~len ba in
let acc = let acc =
acc >>= fun acc -> f response acc (Bigstringaf.substring ~off ~len ba) acc >>= fun acc -> f response acc str
in in
H2.Body.Reader.schedule_read response_body ~on_read:(on_read on_eof acc) H2.Body.Reader.schedule_read response_body ~on_read:(on_read on_eof acc)
~on_eof:(on_eof response acc) in ~on_eof:(on_eof response acc) in