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

if a redirect with a body is provided, we need to skip the body #2

Merged
hannes merged 2 commits from fixes into main 2024-11-05 11:28:40 +00:00
Conversation 0 Commits 2 Files changed 2 +6
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files
Showing only changes of commit bd6c9edff6 - Show all commits

6
src/http_mirage_client.ml
View file

@ -434,6 +434,12 @@ let request
let rec follow_redirect count uri = let rec follow_redirect count uri =
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 =
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 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) ->