From 24fd5dc7ca43702a0222298c39b5d09ddcf93a8e Mon Sep 17 00:00:00 2001
From: Clombrong <cromblong@egregore.fun>
Date: Sun, 29 Jun 2025 07:05:41 +0200
Subject: feat(stream): remplace features type by feature type

---
 lib/stream.ml | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

(limited to 'lib')

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]. *)
-- 
cgit v1.2.3