From 1b3d0a4cdda3931ce2112038f6ba89c30932e9c5 Mon Sep 17 00:00:00 2001 From: Clombrong Date: Sun, 29 Jun 2025 19:06:42 +0200 Subject: docs(stream): remove obsolete comment in initiate --- lib/stream.ml | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/lib/stream.ml b/lib/stream.ml index 5eaba42..92aebd4 100644 --- a/lib/stream.ml +++ b/lib/stream.ml @@ -79,6 +79,7 @@ let sasl mechanisms _ (portal : Portal.t) {sasl=config; _} = | Error err -> Lwt.fail_with (parse_auth_error err) | Ok _ -> print_endline "Success!"; Lwt.return_unit else Lwt.fail InsufficientEncryption + (** [negotiate domain portal auth] is a promise containing the features supported by the XMPP server [portal], after eventual STARTTLS negotiation and authentication using the auth config [auth]. @@ -118,10 +119,7 @@ let negotiate | [], _ -> Lwt.return f in start_stream () >>= handle_features -(** [initiate domain] initiates a stream with the XMPP server [domain]. - - Once [None] is pushed into the stream, the receiving stream is drained and the - socket is closed. *) +(** [initiate domain] initiates a stream with the XMPP server [domain]. *) let initiate (domain : string) (config : config) : (Portal.t * features) Lwt.t = let open Portal in let* p = connect domain -- cgit v1.2.3