diff options
author | Clombrong <cromblong@egregore.fun> | 2025-06-09 22:52:30 +0200 |
---|---|---|
committer | Clombrong <cromblong@egregore.fun> | 2025-06-09 22:52:30 +0200 |
commit | b40ec1a8d10323914d26499e237993ff8022a673 (patch) | |
tree | 6981670688ab967630c8e2ee422b9710d43637e9 /lib/auth.ml | |
parent | b1a727496905a8e07dc725d4bb0c104f3c77f93e (diff) |
feat!: new module Auth
Diffstat (limited to 'lib/auth.ml')
-rw-r--r-- | lib/auth.ml | 8 |
1 files changed, 8 insertions, 0 deletions
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 + |