diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/auth.ml | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/auth.ml b/lib/auth.ml index 3287f91..75c2552 100644 --- a/lib/auth.ml +++ b/lib/auth.ml @@ -1,6 +1,6 @@ type auth_mechanism = PLAIN [@@deriving show { with_path = false }] -let send_auth_stanza (_stream, _push) jid pass mechanism = +let send_auth_stanza (stream, push) jid pass mechanism = let gen_auth = function | PLAIN -> Base64.encode_exn ("\x00" ^ jid ^ "\x00" ^ pass) in let xmlns = "urn:ietf:params:xml:ns:xmpp-sasl" in @@ -10,4 +10,6 @@ let send_auth_stanza (_stream, _push) jid pass mechanism = (("", "mechanism"), show_auth_mechanism mechanism)]); `Text [gen_auth mechanism]; `End_element] - in Markup.(stanza_list |> of_list |> write_xml |> to_string) + in Markup.(stanza_list |> of_list |> write_xml |> to_string) |> Option.some |> push; + (* TODO: use stream result for exceptions, etc. *) + Lwt_stream.get stream |