diff options
| -rw-r--r-- | gemini/geminiTransaction.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/gemini/geminiTransaction.ml b/gemini/geminiTransaction.ml index 77f1206..56cbb7f 100644 --- a/gemini/geminiTransaction.ml +++ b/gemini/geminiTransaction.ml @@ -241,8 +241,11 @@ struct 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 - with | Tls_lwt.Tls_alert alert -> + with + | Tls_lwt.Tls_alert alert -> Lwt.return (Error (Tls.Packet.alert_type_to_string alert)) + | Tls_lwt.Tls_failure failure -> + Lwt.return (Error (Tls.Engine.string_of_failure failure)) let rec session req = match%lwt transaction req with |