diff options
Diffstat (limited to 'lib/starttls.ml')
| -rw-r--r-- | lib/starttls.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/starttls.ml b/lib/starttls.ml index 7a74b11..3b36925 100644 --- a/lib/starttls.ml +++ b/lib/starttls.ml @@ -35,7 +35,7 @@ let parse_reply response = (** [upgrade portal] upgrades the Portal to STARTTLS. *) let upgrade (portal : Portal.t) : unit Lwt.t = portal.push (Some stanza); - let* response = Wire.get portal.stream + let* response = Segment.get portal.stream in match parse_reply response with | `Failure | `Error -> Lwt.fail STARTTLSFailure | `Proceed -> Portal.starttls portal |