From e12c89058150c71a74cea9f042c6816058a120c1 Mon Sep 17 00:00:00 2001 From: Clombrong Date: Mon, 21 Apr 2025 11:58:06 +0200 Subject: feat: Hello, flesh. --- dune-project | 1 + flesh.opam | 1 + lib/dune | 3 ++- lib/flesh.ml | 1 + test/dune | 3 ++- test/flesh.ml | 0 test/flesh_hello.ml | 6 ++++++ 7 files changed, 13 insertions(+), 2 deletions(-) create mode 100644 lib/flesh.ml delete mode 100644 test/flesh.ml create mode 100644 test/flesh_hello.ml diff --git a/dune-project b/dune-project index a100b3e..883d482 100644 --- a/dune-project +++ b/dune-project @@ -23,6 +23,7 @@ (depends ocaml dune + lwt (merlin :with-test)) (tags (xmpp lwt))) diff --git a/flesh.opam b/flesh.opam index 48f2406..ef1a579 100644 --- a/flesh.opam +++ b/flesh.opam @@ -12,6 +12,7 @@ bug-reports: "https://forge.fsky.io/clombrong/flesh/issues" depends: [ "ocaml" "dune" {>= "3.11"} + "lwt" "merlin" {with-test} "odoc" {with-doc} ] diff --git a/lib/dune b/lib/dune index 2c76709..af1b3ad 100644 --- a/lib/dune +++ b/lib/dune @@ -1,3 +1,4 @@ (library (public_name flesh) - (name flesh)) + (name flesh) + (libraries lwt)) diff --git a/lib/flesh.ml b/lib/flesh.ml new file mode 100644 index 0000000..969d285 --- /dev/null +++ b/lib/flesh.ml @@ -0,0 +1 @@ +let hello = Lwt_stream.of_string "Hello, flesh." diff --git a/test/dune b/test/dune index e273eab..bac5086 100644 --- a/test/dune +++ b/test/dune @@ -1,2 +1,3 @@ (test - (name flesh)) + (name flesh_hello) + (libraries flesh lwt)) diff --git a/test/flesh.ml b/test/flesh.ml deleted file mode 100644 index e69de29..0000000 diff --git a/test/flesh_hello.ml b/test/flesh_hello.ml new file mode 100644 index 0000000..c16944f --- /dev/null +++ b/test/flesh_hello.ml @@ -0,0 +1,6 @@ +open Lwt.Syntax + +let () = Lwt.async @@ + fun () -> + let+ hello = Lwt_stream.to_string Flesh.hello + in print_endline hello -- cgit v1.2.3