diff options
| author | Clombrong <cromblong@egregore.fun> | 2025-06-29 19:06:42 +0200 |
|---|---|---|
| committer | Clombrong <cromblong@egregore.fun> | 2025-06-29 19:06:42 +0200 |
| commit | 1b3d0a4cdda3931ce2112038f6ba89c30932e9c5 (patch) | |
| tree | 220ce3be6ecb7379f12346bfdb24e4668bf34503 /lib/stream.ml | |
| parent | 6052064836cbd91b18489dba165d22a3241b932b (diff) | |
docs(stream): remove obsolete comment in initiate
Diffstat (limited to 'lib/stream.ml')
| -rw-r--r-- | lib/stream.ml | 6 |
1 files 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 |