Delegate_services (tezos-protocol-alpha.Tezos_raw_protocol_alpha.Delegate

type Tezos_protocol_environment_alpha.Error_monad.error +=

| Not_registered of Tezos_protocol_environment_alpha.Signature.Public_key_hash.t

val list : 
  'a Tezos_protocol_environment_alpha.RPC_context.simple ->
  'a ->
  ?active:bool ->
  ?inactive:bool ->
  ?with_minimal_stake:bool ->
  ?without_minimal_stake:bool ->
  unit ->
  Tezos_protocol_environment_alpha.Signature.Public_key_hash.t list
    Tezos_protocol_environment_alpha.Error_monad.shell_tzresult
    Tezos_protocol_environment_alpha.Lwt.t

type consensus_key = {

consensus_key_pkh : Tezos_protocol_environment_alpha.Signature.Public_key_hash.t;
consensus_key_pk : Tezos_protocol_environment_alpha.Signature.Public_key.t;

}

type consensus_keys_info = {

active : consensus_key;
pendings : (Alpha_context.Cycle.t * consensus_key) list;

}

type deposit_per_cycle = {

cycle : Alpha_context.Cycle.t;
deposit : Alpha_context.Tez.t;

}

val deposit_per_cycle_encoding : 
  deposit_per_cycle Tezos_protocol_environment_alpha.Data_encoding.t

val full_balance : 
  'a Tezos_protocol_environment_alpha.RPC_context.simple ->
  'a ->
  Tezos_protocol_environment_alpha.Signature.Public_key_hash.t ->
  Alpha_context.Tez.t
    Tezos_protocol_environment_alpha.Error_monad.shell_tzresult
    Tezos_protocol_environment_alpha.Lwt.t

val current_frozen_deposits : 
  'a Tezos_protocol_environment_alpha.RPC_context.simple ->
  'a ->
  Tezos_protocol_environment_alpha.Signature.Public_key_hash.t ->
  Alpha_context.Tez.t
    Tezos_protocol_environment_alpha.Error_monad.shell_tzresult
    Tezos_protocol_environment_alpha.Lwt.t

val frozen_deposits : 
  'a Tezos_protocol_environment_alpha.RPC_context.simple ->
  'a ->
  Tezos_protocol_environment_alpha.Signature.Public_key_hash.t ->
  Alpha_context.Tez.t
    Tezos_protocol_environment_alpha.Error_monad.shell_tzresult
    Tezos_protocol_environment_alpha.Lwt.t

val unstaked_frozen_deposits : 
  'a Tezos_protocol_environment_alpha.RPC_context.simple ->
  'a ->
  Tezos_protocol_environment_alpha.Signature.Public_key_hash.t ->
  deposit_per_cycle list
    Tezos_protocol_environment_alpha.Error_monad.shell_tzresult
    Tezos_protocol_environment_alpha.Lwt.t

val staking_balance : 
  'a Tezos_protocol_environment_alpha.RPC_context.simple ->
  'a ->
  Tezos_protocol_environment_alpha.Signature.Public_key_hash.t ->
  Alpha_context.Tez.t
    Tezos_protocol_environment_alpha.Error_monad.shell_tzresult
    Tezos_protocol_environment_alpha.Lwt.t

val frozen_deposits_limit : 
  'a Tezos_protocol_environment_alpha.RPC_context.simple ->
  'a ->
  Tezos_protocol_environment_alpha.Signature.Public_key_hash.t ->
  Alpha_context.Tez.t option
    Tezos_protocol_environment_alpha.Error_monad.shell_tzresult
    Tezos_protocol_environment_alpha.Lwt.t

val delegated_contracts : 
  'a Tezos_protocol_environment_alpha.RPC_context.simple ->
  'a ->
  Tezos_protocol_environment_alpha.Signature.Public_key_hash.t ->
  Alpha_context.Contract.t list
    Tezos_protocol_environment_alpha.Error_monad.shell_tzresult
    Tezos_protocol_environment_alpha.Lwt.t

val total_delegated_stake : 
  'a Tezos_protocol_environment_alpha.RPC_context.simple ->
  'a ->
  Alpha_context.public_key_hash ->
  Alpha_context.Tez.t
    Tezos_protocol_environment_alpha.Error_monad.shell_tzresult
    Tezos_protocol_environment_alpha.Lwt.t

val staking_denominator : 
  'a Tezos_protocol_environment_alpha.RPC_context.simple ->
  'a ->
  Alpha_context.public_key_hash ->
  Alpha_context.Staking_pseudotoken.t
    Tezos_protocol_environment_alpha.Error_monad.shell_tzresult
    Tezos_protocol_environment_alpha.Lwt.t

val deactivated : 
  'a Tezos_protocol_environment_alpha.RPC_context.simple ->
  'a ->
  Tezos_protocol_environment_alpha.Signature.Public_key_hash.t ->
  bool Tezos_protocol_environment_alpha.Error_monad.shell_tzresult
    Tezos_protocol_environment_alpha.Lwt.t

val grace_period : 
  'a Tezos_protocol_environment_alpha.RPC_context.simple ->
  'a ->
  Tezos_protocol_environment_alpha.Signature.Public_key_hash.t ->
  Alpha_context.Cycle.t
    Tezos_protocol_environment_alpha.Error_monad.shell_tzresult
    Tezos_protocol_environment_alpha.Lwt.t

val current_voting_power : 
  'a Tezos_protocol_environment_alpha.RPC_context.simple ->
  'a ->
  Alpha_context.public_key_hash ->
  int64 Tezos_protocol_environment_alpha.Error_monad.shell_tzresult
    Tezos_protocol_environment_alpha.Lwt.t

val voting_power : 
  'a Tezos_protocol_environment_alpha.RPC_context.simple ->
  'a ->
  Alpha_context.public_key_hash ->
  int64 Tezos_protocol_environment_alpha.Error_monad.shell_tzresult
    Tezos_protocol_environment_alpha.Lwt.t

val current_baking_power : 
  'a Tezos_protocol_environment_alpha.RPC_context.simple ->
  'a ->
  Alpha_context.public_key_hash ->
  int64 Tezos_protocol_environment_alpha.Error_monad.shell_tzresult
    Tezos_protocol_environment_alpha.Lwt.t

val voting_info : 
  'a Tezos_protocol_environment_alpha.RPC_context.simple ->
  'a ->
  Alpha_context.public_key_hash ->
  Alpha_context.Vote.delegate_info
    Tezos_protocol_environment_alpha.Error_monad.shell_tzresult
    Tezos_protocol_environment_alpha.Lwt.t

val consensus_key : 
  'a Tezos_protocol_environment_alpha.RPC_context.simple ->
  'a ->
  Tezos_protocol_environment_alpha.Signature.Public_key_hash.t ->
  consensus_keys_info
    Tezos_protocol_environment_alpha.Error_monad.shell_tzresult
    Tezos_protocol_environment_alpha.Lwt.t

val participation : 
  'a Tezos_protocol_environment_alpha.RPC_context.simple ->
  'a ->
  Alpha_context.public_key_hash ->
  Alpha_context.Delegate.For_RPC.participation_info
    Tezos_protocol_environment_alpha.Error_monad.shell_tzresult
    Tezos_protocol_environment_alpha.Lwt.t

val active_staking_parameters : 
  'a Tezos_protocol_environment_alpha.RPC_context.simple ->
  'a ->
  Alpha_context.public_key_hash ->
  Staking_parameters_repr.t
    Tezos_protocol_environment_alpha.Error_monad.shell_tzresult
    Tezos_protocol_environment_alpha.Lwt.t

val pending_staking_parameters : 
  'a Tezos_protocol_environment_alpha.RPC_context.simple ->
  'a ->
  Alpha_context.public_key_hash ->
  (Alpha_context.Cycle.t * Staking_parameters_repr.t) list
    Tezos_protocol_environment_alpha.Error_monad.shell_tzresult
    Tezos_protocol_environment_alpha.Lwt.t

val pending_denunciations : 
  'a Tezos_protocol_environment_alpha.RPC_context.simple ->
  'a ->
  Alpha_context.public_key_hash ->
  Denunciations_repr.t
    Tezos_protocol_environment_alpha.Error_monad.shell_tzresult
    Tezos_protocol_environment_alpha.Lwt.t

val estimated_shared_pending_slashed_amount : 
  'a Tezos_protocol_environment_alpha.RPC_context.simple ->
  'a ->
  Alpha_context.public_key_hash ->
  Alpha_context.Tez.t
    Tezos_protocol_environment_alpha.Error_monad.shell_tzresult
    Tezos_protocol_environment_alpha.Lwt.t

val register : unit -> unit