From 8ca8ce59dcbd8402d7767e06817980b8552f11a2 Mon Sep 17 00:00:00 2001 From: Clombrong Date: Sun, 29 Jun 2025 13:53:18 +0200 Subject: feat(stream): create features type for features --- lib/stream.ml | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'lib') diff --git a/lib/stream.ml b/lib/stream.ml index aa7c3b3..772c09d 100644 --- a/lib/stream.ml +++ b/lib/stream.ml @@ -9,9 +9,12 @@ type feature = | STARTTLS | Other of Xml.element +(** [features] is a tuple of features list, mandatory and optional. *) +type features = (feature list * feature list) + (** [parse_features stanza] is a tuple of the list of all mandatory features and all optional features described in the [stanza]. *) -let parse_features (stanza : Xml.element) : feature list * feature list = +let parse_features (stanza : Xml.element) : features = let open Xml in let open Either in -- cgit v1.2.3