adapt to API change (Tls.Config.client may result in an error)

mirleft · Aug 21, 2024 · 6328427 · 6328427
1 parent 77ea165
commit 6328427
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/miou/tls_miou_unix.ml b/miou/tls_miou_unix.ml
@@ -293,7 +293,11 @@ let resolve host service =
   | ai :: _ -> ai.ai_addr
 
 let connect authenticator (v, port) =
-  let conf = Tls.Config.client ~authenticator () in
+  let conf =
+    match Tls.Config.client ~authenticator () with
+    | Ok config -> config
+    | Error `Msg msg -> Fmt.invalid_arg "Configuration failure: %s" msg
+  in
   let addr = resolve v (string_of_int port) in
   let fd =
     match addr with