tezos-protocol-plugin-alpha 17.3

type delegate_rights = {

delegate : Tezos_protocol_alpha.Environment.Signature.Public_key_hash.t;
consensus_key : Tezos_protocol_alpha.Environment.Signature.Public_key_hash.t;
first_slot : Tezos_protocol_alpha.Protocol.Alpha_context.Slot.t;
attestation_power : int;

}

type t = {

level : Tezos_protocol_alpha.Protocol.Alpha_context.Raw_level.t;
delegates_rights : delegate_rights list;
estimated_time : Tezos_protocol_alpha.Environment.Time.t option;

}

val delegate_rights_encoding : 
  bool ->
  delegate_rights Tezos_protocol_alpha.Environment.Data_encoding.encoding

val encoding : 
  use_endorsement:bool ->
  t Tezos_protocol_alpha.Environment.Data_encoding.encoding

module S : sig ... end

val attestation_rights_at_level : 
  Tezos_raw_protocol_alpha.Alpha_context.context ->
  Tezos_raw_protocol_alpha.Alpha_context.Level.t ->
  (Tezos_raw_protocol_alpha.Alpha_context.context * t,
    Tezos_protocol_environment_alpha.Error_monad.error
      Tezos_protocol_environment_alpha.Error_monad.trace)
    Tezos_protocol_environment_alpha.Pervasives.result
    Tezos_protocol_environment_alpha.Lwt.t

val get_attestation_rights : 
  Tezos_raw_protocol_alpha__Alpha_context.t ->
  S.attestation_rights_query ->
  (t list,
    Tezos_protocol_environment_alpha.Error_monad.error
      Tezos_protocol_environment_alpha.Error_monad.trace)
    Tezos_protocol_environment_alpha.Pervasives.result
    Tezos_protocol_environment_alpha.Lwt.t

val register : unit -> unit

val get : 
  'a Tezos_protocol_alpha.Environment.RPC_context.simple ->
  ?levels:Tezos_protocol_alpha.Protocol.Alpha_context.Raw_level.t list ->
  ?cycle:Tezos_protocol_alpha.Protocol.Alpha_context.Cycle.t ->
  ?delegates:Tezos_protocol_alpha.Environment.Signature.Public_key_hash.t list ->
  ?consensus_keys:
    Tezos_protocol_alpha.Environment.Signature.Public_key_hash.t list ->
  'a ->
  t list Tezos_protocol_environment_alpha.Error_monad.shell_tzresult
    Tezos_protocol_environment_alpha.Lwt.t

package tezos-protocol-plugin-alpha