fix h2spec

anmonteiro · Aug 27, 2024 · bb5964e · bb5964e
1 parent 23c7a25
commit bb5964e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/spec/lwt_h2spec.ml b/spec/lwt_h2spec.ml
@@ -53,7 +53,7 @@ let connection_handler : Unix.sockaddr -> Lwt_unix.file_descr -> unit Lwt.t =
                 ignore
                 @@ Reqd.try_with request_descriptor (fun () ->
                   Body.Writer.write_string response_body " data");
-                Body.Writer.flush response_body (fun () ->
+                Body.Writer.flush response_body (fun _reason ->
                   Body.Writer.close response_body))
             | "/bigstring" ->
               let res_body = "non-empty data." in