From bd6c9edff6250c2cf775e2675710740944408061 Mon Sep 17 00:00:00 2001
From: Hannes Mehnert <hannes@mehnert.org>
Date: Tue, 5 Nov 2024 11:00:03 +0100
Subject: [PATCH] if a redirect with a body is provided, we need to skip the
 body

---
 src/http_mirage_client.ml | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/http_mirage_client.ml b/src/http_mirage_client.ml
index 476e140..72468b5 100644
--- a/src/http_mirage_client.ml
+++ b/src/http_mirage_client.ml
@@ -434,6 +434,12 @@ let request
     let rec follow_redirect count uri =
       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
         single_request ~ctx ~alpn_protocol ?config tls_config ~meth ~headers
           ?body uri f f_init
         >>? fun (resp, body) ->