chrstntdd · yawaramin · Oct 14, 2023
diff --git a/bin/dune b/bin/dune
diff --git a/bin/main.ml b/bin/main.ml
diff --git a/dune b/dune
@@ -0,0 +1,3 @@
+(executable
+ (name server)
+ (libraries cohttp-eio eio_main))
diff --git a/dune-project b/dune-project
@@ -17,10 +17,7 @@
 
 (package
  (name ocaml_http)
+ (allow_empty)
  (synopsis "A short synopsis")
  (description "A longer description")
- (depends ocaml dune)
- (tags
-  (topics "to describe" your project)))
-
-; See the complete stanza docs at https://dune.readthedocs.io/en/stable/dune-files.html#dune-project
+ (depends cohttp-eio eio_main))
diff --git a/lib/dune b/lib/dune
diff --git a/ocaml_http.opam b/ocaml_http.opam
@@ -5,13 +5,13 @@ description: "A longer description"
 maintainer: ["Maintainer Name"]
 authors: ["Author Name"]
 license: "LICENSE"
-tags: ["topics" "to describe" "your" "project"]
 homepage: "https://github.com/username/reponame"
 doc: "https://url/to/documentation"
 bug-reports: "https://github.com/username/reponame/issues"
 depends: [
-  "ocaml"
   "dune" {>= "3.11"}
+  "cohttp-eio"
+  "eio_main"
   "odoc" {with-doc}
 ]
 build: [

diff --git a/server.ml b/server.ml
@@ -0,0 +1,9 @@
+open Cohttp_eio
+
+let app (req, _, _) = match Http.Request.resource req with
+  | "/hi" -> Server.html_response "hi"
+  | _ -> Server.not_found_response
+
+let () =
+  Eio_main.run @@ fun env ->
+  Server.run ~port:8080 ~domains:(Domain.recommended_domain_count ()) env app
diff --git a/test/dune b/test/dune
diff --git a/test/ocaml_http.ml b/test/ocaml_http.ml