From ba1ceb58e4661d07bfd8fbdf7f57b29bbeccf38f Mon Sep 17 00:00:00 2001 From: Clombrong Date: Sun, 17 Aug 2025 17:20:10 +0200 Subject: refactor(stream): do not call header anymore --- lib/stream.ml | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'lib/stream.ml') diff --git a/lib/stream.ml b/lib/stream.ml index 29d88be..d84dd57 100644 --- a/lib/stream.ml +++ b/lib/stream.ml @@ -68,8 +68,7 @@ let parse_features (stanza : Xml.element) : features = (** [start domain portal] is a promise to features that starts a stream negotiation with the XMPP server [portal]. *) let start (portal : Portal.t) : features Lwt.t = - let* _id = Portal.header portal - in Segment.get portal.stream >|= parse_features + Segment.get portal.stream >|= parse_features (** [negotiate mandatory feature portal] negotiates the feature [feature] with the XMPP server at [portal]. *) -- cgit v1.2.3