Module Block_producer.Vrf_evaluation_state

type status =
| At of Mina_numbers.Global_slot.t
| Start
| Completed
type t = {
queue : Consensus.Data.Slot_won.t Core.Queue.t;
mutable vrf_evaluator_status : status;
}
val poll_vrf_evaluator : logger:Logger.t -> Vrf_evaluator.t -> Vrf_evaluator.Vrf_evaluation_result.t Async_kernel__Deferred.t
val create : unit -> t
val finished : t -> bool
val evaluator_status : t -> status
val update_status : t -> Vrf_evaluator.Evaluator_status.t -> unit
val poll : vrf_evaluator:Vrf_evaluator.t -> logger:Logger.t -> t -> unit Async_kernel__Deferred.t
val update_epoch_data : vrf_evaluator:Vrf_evaluator.t -> logger:Logger.t -> epoch_data_for_vrf:Consensus.Data.Epoch_data_for_vrf.t -> t -> unit Async_kernel__Deferred.t