Vrf_evaluator (vrf_evaluator.Vrf

module Epoch = Mina_numbers.Length

module Global_slot = Mina_numbers.Global_slot

module type CONTEXT = sig ... end

module Slot = Mina_numbers.Global_slot

module Consensus_time = Consensus.Data.Consensus_time

module Block_producer_keys : sig ... end

module Evaluator_status : sig ... end

module Vrf_evaluation_result : sig ... end

module Worker_state : sig ... end

module Functions : sig ... end

module Worker : sig ... end

type t = {

connection : Worker.Connection.t;

process : Async.Process.t;

}

val update_block_producer_keys : 
  t ->
  keypairs:Signature_lib.Keypair.And_compressed_pk.Set.t ->
  unit Core.Or_error.t Async.Deferred.t

val create : 
  constraint_constants:Genesis_constants.Constraint_constants.t ->
  pids:Child_processes.Termination.t ->
  consensus_constants:Consensus.Constants.Stable.Latest.t ->
  conf_dir:string ->
  logger:Logger.t ->
  keypairs:Signature_lib.Keypair.And_compressed_pk.Set.t ->
  t Async_kernel__Deferred.t

val set_new_epoch_state : 
  t ->
  epoch_data_for_vrf:Consensus.Data.Epoch_data_for_vrf.t ->
  unit Core.Or_error.t Async.Deferred.t

val slots_won_so_far : 
  t ->
  Vrf_evaluation_result.t Core.Or_error.t Async.Deferred.t