db: use default SSL protocol

This commit is contained in:
Ryan Culpepper 2014-10-31 12:19:02 -04:00
parent 933a71ce71
commit b7c1a65d16
2 changed files with 2 additions and 2 deletions

View File

@ -20,7 +20,7 @@
#:ssl-context [ssl-context
(case ssl
((no) #f)
(else (ssl-make-client-context 'tls)))]
(else (ssl-make-client-context)))]
#:notice-handler [notice-handler void]
#:debug? [debug? #f])
(let ([connection-options

View File

@ -21,7 +21,7 @@
#:ssl-context [ssl-context
(case ssl
((no) #f)
(else (ssl-make-client-context 'sslv3)))]
(else (ssl-make-client-context)))]
#:notice-handler [notice-handler void]
#:notification-handler [notification-handler void]
#:debug? [debug? #f])