(**************************************************************************) (* *) (* Copyright (c) 2014 - 2018. *) (* Dynamic Ledger Solutions, Inc. *) (* *) (* All rights reserved. No warranty, explicit or implicit, provided. *) (* *) (**************************************************************************) module Prevalidators : sig open Prevalidator_worker_state val list : ([ `POST ], unit, unit, unit, unit, (Net_id.t * Worker_types.worker_status) list, unit) RPC_service.t val state : ([ `POST ], unit, unit * Net_id.t, unit, unit, (Request.view, Event.t) Worker_types.full_status, unit) RPC_service.t end module Block_validator : sig open Block_validator_worker_state val state : ([ `POST ], unit, unit, unit, unit, (Request.view, Event.t) Worker_types.full_status, unit) RPC_service.t end module Peer_validators : sig open Peer_validator_worker_state val list : ([ `POST ], unit, unit * Net_id.t, unit, unit, (P2p_peer.Id.t * Worker_types.worker_status) list, unit) RPC_service.t val state : ([ `POST ], unit, (unit * Net_id.t) * P2p_peer.Id.t, unit, unit, (Request.view, Event.t) Worker_types.full_status, unit) RPC_service.t end module Net_validators : sig open Net_validator_worker_state val list : ([ `POST ], unit, unit, unit, unit, (Net_id.t * Worker_types.worker_status) list, unit) RPC_service.t val state : ([ `POST ], unit, unit * Net_id.t, unit, unit, (Request.view, Event.t) Worker_types.full_status, unit) RPC_service.t end