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

ocamlformat

Browse source
This commit is contained in:
Hannes Mehnert 2024-11-05 12:32:33 +01:00
parent 3e9b38787c
commit 8d30a70227
1 changed files with 2 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/http_mirage_client.ml
View file

@ -435,11 +435,8 @@ let request
if count = 0 then Lwt.return_error (`Msg "Redirect limit exceeded") if count = 0 then Lwt.return_error (`Msg "Redirect limit exceeded")
else else
let f response acc body = let f response acc body =
if Status.is_redirection response.status then if Status.is_redirection response.status then Lwt.return acc
Lwt.return acc else f response acc body in
else
f response acc body
in
single_request ~ctx ~alpn_protocol ?config tls_config ~meth ~headers single_request ~ctx ~alpn_protocol ?config tls_config ~meth ~headers
?body uri f f_init ?body uri f f_init
>>? fun (resp, body) -> >>? fun (resp, body) ->