diff options
Diffstat (limited to 'lib/stream.ml')
| -rw-r--r-- | lib/stream.ml | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/lib/stream.ml b/lib/stream.ml index c817571..07bb21c 100644 --- a/lib/stream.ml +++ b/lib/stream.ml @@ -36,18 +36,6 @@ let get (stream : (signal, async) stream) : Xml.element Lwt.t = | Some xml -> Lwt.return xml | None -> Lwt.fail (InvalidStanza (signal |> write_xml |> to_string)) -(** [start domain] is a promise containing a Portal (stream * push) connected to the - XMPP server [domain]. - - Currently, it doesn't handle anything except the initial [<open/>] stanza. *) -let start domain : Portal.t Lwt.t = - let* stream, _push = Portal.connect domain - in let push = function - | None -> Portal.close (stream, _push); - | anything -> _push anything - in let+ _id = Portal.header domain (stream, _push) - in stream, push - (** [parse_features el] is a [stream_features] record with all the features of the [<stream:features>] stanza contained in [el]. *) let parse_features (el : Xml.element) : stream_features = |