tezos-protocol-002-PsYLVpVv 9.7

tezos-protocol-002-PsYLVpVv

val record_proposal : 
  Raw_context.t ->
  Tezos_base__TzPervasives.Protocol_hash.t ->
  Tezos_base__TzPervasives.Signature.public_key_hash ->
  Raw_context.t Lwt.t

val get_proposals : 
  Raw_context.t ->
  int32
    Tezos_protocol_environment_002_PsYLVpVv__Environment.Protocol_hash.Map.t
    Lwt.t

val clear_proposals : Raw_context.t -> Raw_context.t Lwt.t

type ballots = {

yay : int32;
nay : int32;
pass : int32;

}

val record_ballot : 
  Raw_context.t ->
  Tezos_base__TzPervasives.Signature.public_key_hash ->
  Vote_repr.ballot ->
  Raw_context.t Lwt.t

val get_ballots : 
  Raw_context.t ->
  (ballots,
    Tezos_protocol_environment_002_PsYLVpVv__Environment.Error_monad.error list)
    Stdlib.result
    Lwt.t

val clear_ballots : Raw_context.t -> Raw_context.t Lwt.t

val freeze_listings : 
  Raw_context.t ->
  (Raw_context.t,
    Tezos_protocol_environment_002_PsYLVpVv__Environment.Error_monad.error list)
    Stdlib.result
    Lwt.t

val clear_listings : 
  Raw_context.t ->
  (Raw_context.t,
    Tezos_protocol_environment_002_PsYLVpVv__Environment.Error_monad.error list)
    Stdlib.result
    Lwt.t

val listing_size : 
  Raw_context.t ->
  (int32,
    Tezos_protocol_environment_002_PsYLVpVv__Environment.Error_monad.error list)
    Stdlib.result
    Lwt.t

val in_listings : 
  Raw_context.t ->
  Tezos_base__TzPervasives.Signature.public_key_hash ->
  bool Lwt.t

val get_current_quorum : 
  Raw_context.t ->
  (int32,
    Tezos_protocol_environment_002_PsYLVpVv__Environment.Error_monad.error list)
    Stdlib.result
    Lwt.t

val set_current_quorum : 
  Raw_context.t ->
  int32 ->
  (Raw_context.t,
    Tezos_protocol_environment_002_PsYLVpVv__Environment.Error_monad.error list)
    Stdlib.result
    Lwt.t

val get_current_period_kind : 
  Raw_context.t ->
  (Voting_period_repr.kind,
    Tezos_protocol_environment_002_PsYLVpVv__Environment.Error_monad.error list)
    Stdlib.result
    Lwt.t

val set_current_period_kind : 
  Raw_context.t ->
  Voting_period_repr.kind ->
  (Raw_context.t,
    Tezos_protocol_environment_002_PsYLVpVv__Environment.Error_monad.error list)
    Stdlib.result
    Lwt.t

val get_current_proposal : 
  Raw_context.t ->
  (Tezos_base__TzPervasives.Protocol_hash.t,
    Tezos_protocol_environment_002_PsYLVpVv__Environment.Error_monad.error list)
    Stdlib.result
    Lwt.t

val init_current_proposal : 
  Raw_context.t ->
  Tezos_base__TzPervasives.Protocol_hash.t ->
  (Raw_context.t,
    Tezos_protocol_environment_002_PsYLVpVv__Environment.Error_monad.error list)
    Stdlib.result
    Lwt.t

val clear_current_proposal : 
  Raw_context.t ->
  (Raw_context.t,
    Tezos_protocol_environment_002_PsYLVpVv__Environment.Error_monad.error list)
    Stdlib.result
    Lwt.t

val init : 
  Raw_context.t ->
  (Raw_context.t,
    Tezos_protocol_environment_002_PsYLVpVv__Environment.Error_monad.error list)
    Stdlib.result
    Lwt.t

package tezos-protocol-002-PsYLVpVv