diff --git a/.gitignore b/.gitignore index 3bd7ab8..052ad59 100644 --- a/.gitignore +++ b/.gitignore @@ -16,3 +16,4 @@ compiled/ *.dep /*.bak +/private/*.bak diff --git a/private/self-signed-cert.rkt b/private/self-signed-cert.rkt index 25a2367..6d8661b 100644 --- a/private/self-signed-cert.rkt +++ b/private/self-signed-cert.rkt @@ -5,6 +5,7 @@ racket/match openssl openssl/libssl + openssl/libcrypto (prefix-in c: racket/contract) racket/string ) @@ -112,10 +113,7 @@ (define os (system-type 'os*)) -(define libopenssl (cond - ([eq? os 'windows] (ffi-lib "libeay32.dll")) - (else (error (format "Cannot load openssl library on platform ~a" os))) - )) +(define libopenssl libcrypto) (define-ffi-definer define-ssl libopenssl) @@ -270,7 +268,6 @@ alt-name (string-length alt-name)) (let ((r (X509_EXTENSION_create_by_NID #f NID_subject_alt_name 0 subj-alt-name-asn1))) - (displayln r) (when (eq? r #f) (error "Cannot allocate X509 Extenstion for Subject Alt Name"))