From 49dc0625d48b1c6e11179801b7b7ade22e598658 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Mon, 27 Jul 2015 15:15:18 -0400 Subject: [PATCH] more detail in openssl error --- racket/collects/openssl/mzssl.rkt | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/racket/collects/openssl/mzssl.rkt b/racket/collects/openssl/mzssl.rkt index 5ecb8b1b93..852d2cd31b 100644 --- a/racket/collects/openssl/mzssl.rkt +++ b/racket/collects/openssl/mzssl.rkt @@ -561,8 +561,11 @@ TO DO: (error 'encrypt->method "internal error, unknown encrypt: ~e" e)])) (unless f (raise (exn:fail:unsupported - (format "~a: requested protocol not supported\n requested: ~e" + (format "~a: requested protocol not supported~a\n requested: ~e" who + (if ssl-available? + "" + ";\n SSL not available; check `ssl-load-fail-reason'") e) (current-continuation-marks)))) (f))