package shuttle_ssl
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>
Async_ssl support for shuttle
Install
dune-project
Dependency
Authors
Maintainers
Sources
shuttle-0.9.4.tbz
sha256=d868723ab7d9b9c7239c30ce0692bc02c8f6ac3f3ff62ef31a0b8a014de45995
sha512=f831285927eae3da9bb6e233e296e0d9193a940faf81850a279d50a1639ad806717054f973e60436d9afa503ae5a800ddd6a5c4b3eaca8457b20ac5d810534f3
doc/shuttle_ssl/Shuttle_ssl/index.html
Module Shuttle_sslSource
Source
val upgrade_server_connection :
?version:Async_ssl.Version.t ->
?options:Async_ssl.Opt.t list ->
?name:string ->
?allowed_ciphers:[ `Only of string list | `Openssl_default | `Secure ] ->
?ca_file:string ->
?ca_path:string ->
?verify_modes:Async_ssl.Verify_mode.t list ->
crt_file:string ->
key_file:string ->
f:
(ssl_connection ->
Shuttle.Input_channel.t ->
Shuttle.Output_channel.t ->
unit Async.Deferred.t) ->
Shuttle.Input_channel.t ->
Shuttle.Output_channel.t ->
unit Async.Deferred.tupgrade_server_connection performs TLS negotiation and if it succeeds, applies f to the new encrypted channels. When the deferred returned by f resolves, the TLS connection is shutdown, and the channels are closed.
Source
val upgrade_client_connection :
?version:Async_ssl.Version.t ->
?options:Async_ssl.Opt.t list ->
?name:string ->
?hostname:string ->
?allowed_ciphers:[ `Only of string list | `Openssl_default | `Secure ] ->
?ca_file:string ->
?ca_path:string ->
?crt_file:string ->
?key_file:string ->
?verify_modes:Async_ssl.Verify_mode.t list ->
?session:Async_ssl.Ssl.Session.t ->
f:
(ssl_connection ->
Shuttle.Input_channel.t ->
Shuttle.Output_channel.t ->
unit Async.Deferred.t) ->
Shuttle.Input_channel.t ->
Shuttle.Output_channel.t ->
unit Async.Deferred.t sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>