From 12e516a0de0c11fab448116475d86e6b9874cab4 Mon Sep 17 00:00:00 2001
From: Ryan Kavanagh <rak@rak.ac>
Date: Sun, 7 Jun 2020 21:58:52 -0400
Subject: Fix ciphers

---
 gemini/geminiTransaction.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gemini/geminiTransaction.ml b/gemini/geminiTransaction.ml
index 56cbb7f..29f9ec6 100644
--- a/gemini/geminiTransaction.ml
+++ b/gemini/geminiTransaction.ml
@@ -237,7 +237,7 @@ struct
     try%lwt
       let%lwt (ic, oc) = Tls_lwt.connect_ext
           Tls.Config.(client ~peer_name:host ~authenticator
-                        ~ciphers:Ciphers.supported ()) (host, port) in
+                        ~ciphers:Ciphers.default ()) (host, port) in
       let%lwt () = Lwt_io.write oc (Uri.to_string r.url ^ "\r\n") in
       let%lwt (_, parsed) = parse response_parser ic in
       Lwt.return parsed
-- 
cgit v1.2.3