tezos-protocol-014-PtKathma 20.1

This module re-exports definitions from Delegate_storage.

val init : 
  context ->
  Contract.t ->
  Tezos_protocol_environment_014_PtKathma.Signature.Public_key_hash.t ->
  context Tezos_protocol_environment_014_PtKathma.Error_monad.tzresult
    Tezos_protocol_environment_014_PtKathma.Lwt.t

val find : 
  context ->
  Contract.t ->
  public_key_hash option
    Tezos_protocol_environment_014_PtKathma.Error_monad.tzresult
    Tezos_protocol_environment_014_PtKathma.Lwt.t

See Contract_delegate_storage.find.

val set : 
  context ->
  Contract.t ->
  public_key_hash option ->
  context Tezos_protocol_environment_014_PtKathma.Error_monad.tzresult
    Tezos_protocol_environment_014_PtKathma.Lwt.t

val frozen_deposits_limit : 
  context ->
  Tezos_protocol_environment_014_PtKathma.Signature.Public_key_hash.t ->
  Tez.t option Tezos_protocol_environment_014_PtKathma.Error_monad.tzresult
    Tezos_protocol_environment_014_PtKathma.Lwt.t

val set_frozen_deposits_limit : 
  context ->
  Tezos_protocol_environment_014_PtKathma.Signature.Public_key_hash.t ->
  Tez.t option ->
  context Tezos_protocol_environment_014_PtKathma.Lwt.t

val fold : 
  context ->
  order:[ `Sorted | `Undefined ] ->
  init:'a ->
  f:(public_key_hash -> 'a -> 'a Tezos_protocol_environment_014_PtKathma.Lwt.t) ->
  'a Tezos_protocol_environment_014_PtKathma.Lwt.t

val list : 
  context ->
  public_key_hash list Tezos_protocol_environment_014_PtKathma.Lwt.t

val check_delegate : 
  context ->
  public_key_hash ->
  unit Tezos_protocol_environment_014_PtKathma.Error_monad.tzresult
    Tezos_protocol_environment_014_PtKathma.Lwt.t

type participation_info = {

expected_cycle_activity : int;
minimal_cycle_activity : int;
missed_slots : int;
missed_levels : int;
remaining_allowed_missed_slots : int;
expected_endorsing_rewards : Tez.t;

}

val delegate_participation_info : 
  context ->
  public_key_hash ->
  participation_info
    Tezos_protocol_environment_014_PtKathma.Error_monad.tzresult
    Tezos_protocol_environment_014_PtKathma.Lwt.t

val cycle_end : 
  context ->
  Cycle.t ->
  Nonce.unrevealed list ->
  (context
   * Receipt.balance_updates
   * Tezos_protocol_environment_014_PtKathma.Signature.Public_key_hash.t list)
    Tezos_protocol_environment_014_PtKathma.Error_monad.tzresult
    Tezos_protocol_environment_014_PtKathma.Lwt.t

val already_slashed_for_double_endorsing : 
  context ->
  public_key_hash ->
  Level.t ->
  bool Tezos_protocol_environment_014_PtKathma.Error_monad.tzresult
    Tezos_protocol_environment_014_PtKathma.Lwt.t

val already_slashed_for_double_baking : 
  context ->
  public_key_hash ->
  Level.t ->
  bool Tezos_protocol_environment_014_PtKathma.Error_monad.tzresult
    Tezos_protocol_environment_014_PtKathma.Lwt.t

val punish_double_endorsing : 
  context ->
  public_key_hash ->
  Level.t ->
  (context * Tez.t * Receipt.balance_updates)
    Tezos_protocol_environment_014_PtKathma.Error_monad.tzresult
    Tezos_protocol_environment_014_PtKathma.Lwt.t

val punish_double_baking : 
  context ->
  public_key_hash ->
  Level.t ->
  (context * Tez.t * Receipt.balance_updates)
    Tezos_protocol_environment_014_PtKathma.Error_monad.tzresult
    Tezos_protocol_environment_014_PtKathma.Lwt.t

val full_balance : 
  context ->
  public_key_hash ->
  Tez.t Tezos_protocol_environment_014_PtKathma.Error_monad.tzresult
    Tezos_protocol_environment_014_PtKathma.Lwt.t

type level_participation =

| Participated
| Didn't_participate

val record_baking_activity_and_pay_rewards_and_fees : 
  context ->
  payload_producer:
    Tezos_protocol_environment_014_PtKathma.Signature.Public_key_hash.t ->
  block_producer:
    Tezos_protocol_environment_014_PtKathma.Signature.Public_key_hash.t ->
  baking_reward:Tez.t ->
  reward_bonus:Tez.t option ->
  (context * Receipt.balance_updates)
    Tezos_protocol_environment_014_PtKathma.Error_monad.tzresult
    Tezos_protocol_environment_014_PtKathma.Lwt.t

val record_endorsing_participation : 
  context ->
  delegate:Tezos_protocol_environment_014_PtKathma.Signature.Public_key_hash.t ->
  participation:level_participation ->
  endorsing_power:int ->
  context Tezos_protocol_environment_014_PtKathma.Error_monad.tzresult
    Tezos_protocol_environment_014_PtKathma.Lwt.t

type deposits = {

initial_amount : Tez.t;
current_amount : Tez.t;

}

val frozen_deposits : 
  context ->
  public_key_hash ->
  deposits Tezos_protocol_environment_014_PtKathma.Error_monad.tzresult
    Tezos_protocol_environment_014_PtKathma.Lwt.t

val staking_balance : 
  context ->
  Tezos_protocol_environment_014_PtKathma.Signature.Public_key_hash.t ->
  Tez.t Tezos_protocol_environment_014_PtKathma.Error_monad.tzresult
    Tezos_protocol_environment_014_PtKathma.Lwt.t

val delegated_contracts : 
  context ->
  Tezos_protocol_environment_014_PtKathma.Signature.Public_key_hash.t ->
  Contract.t list Tezos_protocol_environment_014_PtKathma.Lwt.t

See Contract_delegate_storage.delegated_contracts.

val delegated_balance : 
  context ->
  Tezos_protocol_environment_014_PtKathma.Signature.Public_key_hash.t ->
  Tez.t Tezos_protocol_environment_014_PtKathma.Error_monad.tzresult
    Tezos_protocol_environment_014_PtKathma.Lwt.t

val registered : 
  context ->
  Tezos_protocol_environment_014_PtKathma.Signature.Public_key_hash.t ->
  bool Tezos_protocol_environment_014_PtKathma.Error_monad.tzresult
    Tezos_protocol_environment_014_PtKathma.Lwt.t

See Contract_delegate_storage.registered.

val deactivated : 
  context ->
  Tezos_protocol_environment_014_PtKathma.Signature.Public_key_hash.t ->
  bool Tezos_protocol_environment_014_PtKathma.Error_monad.tzresult
    Tezos_protocol_environment_014_PtKathma.Lwt.t

val last_cycle_before_deactivation : 
  context ->
  Tezos_protocol_environment_014_PtKathma.Signature.Public_key_hash.t ->
  Cycle.t Tezos_protocol_environment_014_PtKathma.Error_monad.tzresult
    Tezos_protocol_environment_014_PtKathma.Lwt.t

See Delegate_activation_storage.last_cycle_before_deactivation.

val pubkey : 
  context ->
  public_key_hash ->
  public_key Tezos_protocol_environment_014_PtKathma.Error_monad.tzresult
    Tezos_protocol_environment_014_PtKathma.Lwt.t

val prepare_stake_distribution : 
  context ->
  context Tezos_protocol_environment_014_PtKathma.Error_monad.tzresult
    Tezos_protocol_environment_014_PtKathma.Lwt.t

See Stake_storage.prepare_stake_distribution.

package tezos-protocol-014-PtKathma