From 8d30a70227e090fada332776139b4a794a3b0b17 Mon Sep 17 00:00:00 2001
From: Hannes Mehnert <hannes@mehnert.org>
Date: Tue, 5 Nov 2024 12:32:33 +0100
Subject: [PATCH] ocamlformat

---
 src/http_mirage_client.ml | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/src/http_mirage_client.ml b/src/http_mirage_client.ml
index 72468b5..1b71a38 100644
--- a/src/http_mirage_client.ml
+++ b/src/http_mirage_client.ml
@@ -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) ->