From bc449c40dd8a98f8da119fc1c0c0f053734c30cf Mon Sep 17 00:00:00 2001
From: Clombrong <cromblong@egregore.fun>
Date: Sun, 29 Jun 2025 05:59:06 +0200
Subject: style(portal_tcp): de-uglify starttls function

---
 portal/tcp/portal.ml | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/portal/tcp/portal.ml b/portal/tcp/portal.ml
index 7d508fe..0105a06 100644
--- a/portal/tcp/portal.ml
+++ b/portal/tcp/portal.ml
@@ -169,13 +169,10 @@ let upgrade_to_tls (fd : Lwt_unix.file_descr) : Tls_lwt.Unix.t Lwt.t =
   with Failure msg -> Lwt.fail_with msg
 
 let starttls (portal : t) : unit Lwt.t =
-  let* s = match portal._socket with
-    | Plain s -> s
+  let+ tls_sock = match portal._socket with
+    | Plain s -> upgrade_to_tls s
     | Tls _ -> Lwt.fail_with "TLS is already enabled on this socket!"
-  in
-  let+ tls_sock = upgrade_to_tls s in
-  let sock = Tls tls_sock
-  in portal._socket <- sock
+  in portal._socket <- Tls tls_sock
 
 let header ?from domain (portal : t) =
   let stanza =
-- 
cgit v1.2.3