diff options
| -rw-r--r-- | lib/stream.ml | 3 |
1 files changed, 1 insertions, 2 deletions
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]. *) |