diff options
Diffstat (limited to 'lib/stream.ml')
| -rw-r--r-- | lib/stream.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/stream.ml b/lib/stream.ml index 5743318..adf852c 100644 --- a/lib/stream.ml +++ b/lib/stream.ml @@ -4,7 +4,9 @@ open Markup exception ClosedStream exception InvalidStanza of string -type auth_mechanism = PLAIN [@@deriving show { with_path = false }] +type auth_mechanism = + | PLAIN + | Unknown of string [@@deriving show { with_path = false }] let get (stream : (signal, async) stream) : (signal, sync) stream Lwt.t = (** [stanza stream] is a promise containing a full stanza of the fragments of [stream].*) |