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) ->