T (vrf_evaluator.Vrf_evaluator.Worker.T)

type 'worker functions = {

set_new_epoch_state : ( 'worker, Consensus.Data.Epoch_data_for_vrf.t, unit )
                        Rpc_parallel.Function.t;

slots_won_so_far : ( 'worker, unit, Vrf_evaluation_result.t )
                     Rpc_parallel.Function.t;

update_block_producer_keys : ( 'worker, Block_producer_keys.t, unit )
                               Rpc_parallel.Function.t;

}

module Worker_state = Worker_state

module Connection_state : sig ... end

module Functions
  (C : 
    Rpc_parallel.Creator
      with type worker_state := Worker_state.t
       and type connection_state := Connection_state.t) : 
  sig ... end