package async_js
Module Persistent_connection.RpcSource
include Async_rpc_kernel.Persistent_connection.S
with type conn = Async_js__.Rpc.Connection.t
val sexp_of_t : t -> Sexplib0.Sexp.ttype conn = Rpc.Connection.tmodule Event : sig ... endval create :
server_name:string ->
?on_event:('address Event.t -> unit Async_kernel.Deferred.t) ->
?retry_delay:(unit -> Core.Time_ns.Span.t) ->
?random_state:[ `Non_random | `State of Core.Random.State.t ] ->
?time_source:Async_kernel.Time_source.t ->
connect:('address -> conn Core.Or_error.t Async_kernel.Deferred.t) ->
address:
(module Persistent_connection_kernel__Persistent_connection_kernel_intf.Address
with type t = 'address) ->
(unit -> 'address Core.Or_error.t Async_kernel.Deferred.t) ->
tval connected : t -> conn Async_kernel.Deferred.tval connected_or_failed_to_connect :
t ->
conn Core.Or_error.t Async_kernel.Deferred.tval server_name : t -> stringval close : t -> unit Async_kernel.Deferred.tval is_closed : t -> boolval close_finished : t -> unit Async_kernel.Deferred.tval close_when_current_connection_is_closed : t -> unittype 'a create :=
server_name:string ->
?on_event:('a Event.t -> unit Async_kernel.Deferred.t) ->
?retry_delay:(unit -> Core.Time_ns.Span.t) ->
?random_state:[ `Non_random | `State of Core.Random.State.t ] ->
?time_source:Async_kernel.Time_source.t ->
connect:('a -> conn Core.Or_error.t Async_kernel.Deferred.t) ->
(unit -> 'a Core.Or_error.t Async_kernel.Deferred.t) ->
t