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")
else
let f response acc body =
if Status.is_redirection response.status then
Lwt.return acc
else
f response acc body
in
if Status.is_redirection response.status then Lwt.return acc
else f response acc body in
single_request ~ctx ~alpn_protocol ?config tls_config ~meth ~headers
?body uri f f_init
>>? fun (resp, body) ->