cohttp-lwt-unix: adapt to new http constructors

Signed-off-by: Marcello Seri <marcello.seri@gmail.com>
mirage · Jun 14, 2022 · e89bd22 · e89bd22
1 parent 918dfff
commit e89bd22
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/cohttp-lwt-unix/src/server.ml b/cohttp-lwt-unix/src/server.ml
@@ -50,7 +50,7 @@ let respond_file ?headers ~fname () =
       let headers =
         Http.Header.add_opt_unless_exists headers "content-type" mime_type
       in
-      let res = Http.Response.make ~status:`OK ~encoding ~headers () in
+      let res = Cohttp.Response.make ~status:`OK ~encoding ~headers () in
       Lwt.return (res, body))
     (function
       | Unix.Unix_error (Unix.ENOENT, _, _) | Isnt_a_file ->