update to tls 0.17.0

hannesm · Mar 9, 2023 · a7acd19 · a7acd19
1 parent 846be4e
commit a7acd19
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/jackline.opam b/jackline.opam
@@ -30,8 +30,8 @@ depends: [
   "ppx_sexp_conv" {build}
   "ppx_deriving" {>= "0.14.0"}
   "erm_xmpp" {> "0.3"}
-  "tls" {>= "0.16.0"}
-  "tls-lwt" {>= "0.16.0"}
+  "tls" {>= "0.17.0"}
+  "tls-lwt" {>= "0.17.0"}
   "mirage-crypto-pk" {>= "0.8.3"}
   "mirage-crypto-rng" {>= "0.11.0"}
   "x509" {>= "0.10.0"}

diff --git a/src/xmpp_callbacks.ml b/src/xmpp_callbacks.ml
@@ -378,9 +378,9 @@ let tls_epoch_to_line t =
     let version = epoch.Core.protocol_version
     and cipher = epoch.Core.ciphersuite
     in
-    Ok Sexplib.Sexp.(to_string_hum (List [
-        Core.sexp_of_tls_version version ;
-        Ciphersuite.sexp_of_ciphersuite cipher ]))
+    Ok (Fmt.str "verion %a cipher %a"
+          Core.pp_tls_version version
+          Ciphersuite.pp_ciphersuite cipher)
   | Error () -> Error "error while fetching TLS parameters"
 
 let connect socket_data myjid ?host password presence authenticator user_data mvar =