open Markup

type t = string Lwt_stream.t * (string option -> unit)

val stanza_open : ?from:string -> string -> (signal, sync) stream

val stanza_close : (signal, sync) stream

val connect : string -> t Lwt.t