diff options
| author | Ryan Kavanagh <rak@rak.ac> | 2020-06-07 21:58:52 -0400 |
|---|---|---|
| committer | Ryan Kavanagh <rak@rak.ac> | 2020-06-07 22:11:02 -0400 |
| commit | 12e516a0de0c11fab448116475d86e6b9874cab4 (patch) | |
| tree | 0694d143ebf0507496b55f8808591fc3cba4f952 | |
| parent | Handle tls failures as well (diff) | |
Fix ciphers
| -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 |