aboutsummaryrefslogtreecommitdiff
path: root/lib/stream.ml
diff options
context:
space:
mode:
Diffstat (limited to 'lib/stream.ml')
-rw-r--r--lib/stream.ml4
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/stream.ml b/lib/stream.ml
index db4d5ee..aa7c3b3 100644
--- a/lib/stream.ml
+++ b/lib/stream.ml
@@ -5,7 +5,7 @@ exception ClosedStream
exception InsufficientEncryption
type feature =
- | Mechanisms of Sasl.auth_mechanism list
+ | Mechanisms of Sasl.mechanism list
| STARTTLS
| Other of Xml.element
@@ -23,7 +23,7 @@ let parse_features (stanza : Xml.element) : feature list * feature list =
let parse_single_mechanism = function
| Left {local_name = "mechanism"; children = [Right mechanism]; _} ->
- Sasl.parse_auth_mechanism mechanism
+ Sasl.parse_mechanism mechanism
| _ -> raise (InvalidStanza (element_to_string stanza))
in