lwt request_handler

src/dune

@@ -1,4 +1,4 @@
 (library
  (name mte)
  (wrapped false)
- (libraries logs h2))
+ (libraries logs h2 lwt))

src/mte.ml

@@ -39,8 +39,8 @@ let request_handler request =
   | [ "" ] ->
       let content = home_page_text in
       let headers = default_headers ~content `Text_plain in
-      { status= `OK; headers; content }
+      Lwt.return { status= `OK; headers; content }
   | _ ->
       let content = "Not found." in
       let headers = default_headers ~content `Text_plain in
-      { status= `Not_found; headers; content }
+      Lwt.return { status= `Not_found; headers; content }