cohttp-async: use the correct Response constructor

Signed-off-by: Marcello Seri <marcello.seri@gmail.com>
mirage · Jun 14, 2022 · 1aa8b1f · 1aa8b1f
1 parent 106ccc8
commit 1aa8b1f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/cohttp-async/src/server.ml b/cohttp-async/src/server.ml
@@ -94,7 +94,7 @@ let handle_client handle_request sock rd wr =
 let respond ?(flush = true) ?(headers = Http.Header.init ()) ?(body = `Empty)
     status : response Deferred.t =
   let encoding = Body.transfer_encoding body in
-  let resp = Http.Response.make ~status ~flush ~encoding ~headers () in
+  let resp = Cohttp.Response.make ~status ~flush ~encoding ~headers () in
   return (resp, body)
 
 let respond_with_pipe ?flush ?headers ?(code = `OK) body =