diff --git a/tests/bin/cohttp_client.ml b/tests/bin/cohttp_client.ml
index 3bf9634d..6f695287 100644
--- a/tests/bin/cohttp_client.ml
+++ b/tests/bin/cohttp_client.ml
@@ -22,7 +22,7 @@ let run () =
     in
     let* () = Lwt_unix.sleep !sleep_outer in
     let module C = (val mk_client ~scope) in
-    let* res, body =
+    let* _res, body =
       C.get (Uri.of_string "https://enec1hql02hz.x.pipedream.net")
     in
     let* () = Cohttp_lwt.Body.drain_body body in