Functions (vrf_evaluator.Vrf_evaluator.Functions)

type ('i, 'o) t =
  'i Core.Bin_prot.Type_class.t
  * 'o Core.Bin_prot.Type_class.t
  * ( Worker_state.t ->
  'i ->
  'o Async.Deferred.t )

val create : 
  'i Core.Bin_prot.Type_class.t ->
  'o Core.Bin_prot.Type_class.t ->
  ( Worker_state.t -> 'i0 -> 'o0 Async.Deferred.t ) ->
  ( 'i1, 'o1 ) t

val set_new_epoch_state : 
  ( Consensus.Data.Epoch_data_for_vrf.Stable.Latest.t, Core.Unit.t ) t

val slots_won_so_far : ( Core.Unit.t, Vrf_evaluation_result.Stable.Latest.t ) t

val update_block_producer_keys : 
  ( Block_producer_keys.Stable.Latest.t, Core.Unit.t ) t