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 a7f30d9..1496877 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 Wire.get stream >|= parse_sasl_response + try Segment.get stream >|= parse_sasl_response with exn -> Lwt.fail exn let authenticate |