diff options
Diffstat (limited to 'lib/auth.ml')
| -rw-r--r-- | lib/auth.ml | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/lib/auth.ml b/lib/auth.ml index 0e5d77c..dfe5cfb 100644 --- a/lib/auth.ml +++ b/lib/auth.ml @@ -1,11 +1,6 @@ -open Lwt.Syntax - type auth_mechanism = PLAIN [@@deriving show { with_path = false }] -let authenticate (stream, _push) = - let _gen_auth jid pass = function +let send_auth_stanza (_stream, _push) jid pass mechanism = + let gen_auth = function | PLAIN -> Base64.encode_exn ("\x00" ^ jid ^ "\x00" ^ pass) - in - let+ features = Lwt_stream.get stream - in Option.get features - + in gen_auth mechanism |