diff options
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 + |