From b40ec1a8d10323914d26499e237993ff8022a673 Mon Sep 17 00:00:00 2001
From: Clombrong <cromblong@egregore.fun>
Date: Mon, 9 Jun 2025 22:52:30 +0200
Subject: feat!: new module Auth

---
 lib/auth.ml | 8 ++++++++
 lib/dune    | 3 ++-
 2 files changed, 10 insertions(+), 1 deletion(-)
 create mode 100644 lib/auth.ml

diff --git a/lib/auth.ml b/lib/auth.ml
new file mode 100644
index 0000000..509f2d1
--- /dev/null
+++ b/lib/auth.ml
@@ -0,0 +1,8 @@
+open Lwt.Syntax
+
+type auth_mechanism = PLAIN  [@@deriving show]
+
+let authenticate (stream, _push) =
+  let+ features = Lwt_stream.get stream
+  in Option.get features
+
diff --git a/lib/dune b/lib/dune
index 957188c..6f37f9d 100644
--- a/lib/dune
+++ b/lib/dune
@@ -2,4 +2,5 @@
  (public_name flesh)
  (libraries
    lwt
-   portal))
+   portal)
+ (preprocess (pps ppx_deriving.show)))
-- 
cgit v1.2.3