summaryrefslogtreecommitdiff
path: root/gemini
diff options
context:
space:
mode:
authorRyan Kavanagh <rak@rak.ac>2020-06-07 21:58:52 -0400
committerRyan Kavanagh <rak@rak.ac>2020-06-07 22:11:02 -0400
commit12e516a0de0c11fab448116475d86e6b9874cab4 (patch)
tree0694d143ebf0507496b55f8808591fc3cba4f952 /gemini
parentHandle tls failures as well (diff)
Fix ciphers
Diffstat (limited to 'gemini')
-rw-r--r--gemini/geminiTransaction.ml2
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