diff options
| -rw-r--r-- | lib/stream.ml | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lib/stream.ml b/lib/stream.ml index 2e39935..0b6763a 100644 --- a/lib/stream.ml +++ b/lib/stream.ml @@ -3,11 +3,10 @@ open Lwt.Infix exception ClosedStream -type features = { - mechanisms : Sasl.auth_mechanism list; - starttls : [`Required | `Optional | `None]; - unknown : Xml.element list; - } +type feature = + | Mechanisms of Sasl.auth_mechanism list + | STARTTLS of [`Required | `Optional] + | Other of Xml.element (** [parse_features el] is a [features] record with all the features of the [<stream:features>] stanza contained in [el]. *) |