feat: Hello, flesh.

7 files changed, 13 insertions, 2 deletions

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
--- a/test/flesh.ml
+++ /dev/null
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