diff options
| -rw-r--r-- | gemini/geminiTransaction.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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 |