diff options
Diffstat (limited to 'lib/sasl.ml')
-rw-r--r-- | lib/sasl.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/sasl.ml b/lib/sasl.ml index 1837044..81c4476 100644 --- a/lib/sasl.ml +++ b/lib/sasl.ml @@ -59,7 +59,7 @@ let send_auth_stanza ({stream; push; _} : Portal.t) localpart pass mechanism = `Text [gen_auth mechanism]; `End_element] in Some (Markup.of_list stanza_list) |> push; - try Xml.get stream >|= parse_sasl_response + try Wire.get stream >|= parse_sasl_response with exn -> Lwt.fail exn let authenticate |