diff options
| author | Clombrong <cromblong@egregore.fun> | 2025-08-15 21:04:04 +0200 |
|---|---|---|
| committer | Clombrong <cromblong@egregore.fun> | 2025-08-15 22:54:43 +0200 |
| commit | 0fc9103f770e6135b6f7bc6145b685bb51b89ceb (patch) | |
| tree | 764f50c1034f23cc953915508a86b5c211be3f33 | |
| parent | d9de994b158a83122aa5623c3a2f848154d8140c (diff) | |
feat: rename Wire to Segment
| -rw-r--r-- | lib/flesh.ml | 2 | ||||
| -rw-r--r-- | lib/sasl.ml | 2 | ||||
| -rw-r--r-- | lib/segment.ml (renamed from lib/wire.ml) | 0 | ||||
| -rw-r--r-- | lib/starttls.ml | 2 | ||||
| -rw-r--r-- | lib/stream.ml | 2 |
5 files changed, 4 insertions, 4 deletions
diff --git a/lib/flesh.ml b/lib/flesh.ml index aa62b09..293caf2 100644 --- a/lib/flesh.ml +++ b/lib/flesh.ml @@ -3,6 +3,6 @@ module Stream = Stream module Sasl = Sasl module Starttls = Starttls module Iq = Iq -module Wire = Wire +module Segment = Segment module Xml = Xml module Jid = Jid 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 diff --git a/lib/wire.ml b/lib/segment.ml index ce50f78..ce50f78 100644 --- a/lib/wire.ml +++ b/lib/segment.ml 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 diff --git a/lib/stream.ml b/lib/stream.ml index 84b2cb2..29d88be 100644 --- a/lib/stream.ml +++ b/lib/stream.ml @@ -69,7 +69,7 @@ let parse_features (stanza : Xml.element) : features = the XMPP server [portal]. *) let start (portal : Portal.t) : features Lwt.t = let* _id = Portal.header portal - in Wire.get portal.stream >|= parse_features + in Segment.get portal.stream >|= parse_features (** [negotiate mandatory feature portal] negotiates the feature [feature] with the XMPP server at [portal]. *) |