package ocluster-api
Module Cluster_api.AdminSource
Source
val local :
pools:(unit -> string list) ->
pool:(string -> [ `PoolAdmin_d906b771b4082451 ] Capnp_rpc_lwt.Capability.t) ->
add_client:
(string ->
([ `Submission_f4e8a768b32a7c42 ] Capnp_rpc_lwt.Capability.t,
[< `Capnp of Capnp_rpc.Error.t ])
Lwt_result.t) ->
remove_client:
(string -> (unit, [< `Capnp of Capnp_rpc.Error.t ]) Lwt_result.t) ->
list_clients:(unit -> string list Lwt.t) ->
[ `Admin_dd51f35540dac6ad ] Capnp_rpc_lwt.Capability.tSource
val pool :
[ `Admin_dd51f35540dac6ad ] Capnp_rpc_lwt.Capability.t ->
string ->
[ `PoolAdmin_d906b771b4082451 ] Capnp_rpc_lwt.Capability.tSource
val add_client :
[ `Admin_dd51f35540dac6ad ] Capnp_rpc_lwt.Capability.t ->
string ->
[ `Submission_f4e8a768b32a7c42 ] Capnp_rpc_lwt.Capability.tSource
val remove_client :
[ `Admin_dd51f35540dac6ad ] Capnp_rpc_lwt.Capability.t ->
string ->
unit Lwt.tSource
val list_clients :
[ `Admin_dd51f35540dac6ad ] Capnp_rpc_lwt.Capability.t ->
string list Lwt.t