From 20f32bd13a8f79e123dd31d79fc119e99eb4334f Mon Sep 17 00:00:00 2001
From: Clombrong <cromblong@egregore.fun>
Date: Sun, 29 Jun 2025 21:06:26 +0200
Subject: style(starttls): rename prefer_starttls to prefer

---
 lib/stream.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/stream.ml')

diff --git a/lib/stream.ml b/lib/stream.ml
index 451f9b5..e2fe707 100644
--- a/lib/stream.ml
+++ b/lib/stream.ml
@@ -98,7 +98,7 @@ let negotiate feature portal {starttls; sasl; _} : unit Lwt.t =
   in
   match feature with
   | Mandatory STARTTLS -> Starttls.upgrade portal
-  | Optional STARTTLS -> if starttls.prefer_starttls
+  | Optional STARTTLS -> if starttls.prefer
                          then Starttls.upgrade portal
                          else Lwt.return_unit
   | f ->  unwrap f |> indifferent
-- 
cgit v1.2.3