Voting_services (octez-protocol-alpha-libs.Tezos_protocol_plugin_alpha.Voting

val ballots : 
  'a Tezos_protocol_alpha.Environment.RPC_context.simple ->
  'a ->
  Tezos_protocol_alpha.Protocol.Alpha_context.Vote.ballots
    Tezos_protocol_alpha.Environment.Error_monad.shell_tzresult
    Tezos_protocol_alpha.Environment.Lwt.t

val ballot_list : 
  'a Tezos_protocol_alpha.Environment.RPC_context.simple ->
  'a ->
  (Tezos_protocol_alpha.Protocol.Implicit_account_repr.t
   * Tezos_protocol_alpha.Protocol.Alpha_context.Vote.ballot)
    list
    Tezos_protocol_alpha.Environment.Error_monad.shell_tzresult
    Tezos_protocol_alpha.Environment.Lwt.t

val current_period : 
  'a Tezos_protocol_alpha.Environment.RPC_context.simple ->
  'a ->
  Tezos_protocol_alpha.Protocol.Alpha_context.Voting_period.info
    Tezos_protocol_alpha.Environment.Error_monad.shell_tzresult
    Tezos_protocol_alpha.Environment.Lwt.t

val successor_period : 
  'a Tezos_protocol_alpha.Environment.RPC_context.simple ->
  'a ->
  Tezos_protocol_alpha.Protocol.Alpha_context.Voting_period.info
    Tezos_protocol_alpha.Environment.Error_monad.shell_tzresult
    Tezos_protocol_alpha.Environment.Lwt.t

val current_quorum : 
  'a Tezos_protocol_alpha.Environment.RPC_context.simple ->
  'a ->
  Tezos_protocol_alpha.Environment.Int32.t
    Tezos_protocol_alpha.Environment.Error_monad.shell_tzresult
    Tezos_protocol_alpha.Environment.Lwt.t

val listings : 
  'a Tezos_protocol_alpha.Environment.RPC_context.simple ->
  'a ->
  (Tezos_protocol_alpha.Protocol.Implicit_account_repr.t * int64) list
    Tezos_protocol_alpha.Environment.Error_monad.shell_tzresult
    Tezos_protocol_alpha.Environment.Lwt.t

val proposals : 
  'a Tezos_protocol_alpha.Environment.RPC_context.simple ->
  'a ->
  Tezos_protocol_alpha.Environment.Int64.t
    Tezos_protocol_alpha.Environment.Protocol_hash.Map.t
    Tezos_protocol_alpha.Environment.Error_monad.shell_tzresult
    Tezos_protocol_alpha.Environment.Lwt.t

val current_proposal : 
  'a Tezos_protocol_alpha.Environment.RPC_context.simple ->
  'a ->
  Tezos_protocol_alpha.Environment.Protocol_hash.t option
    Tezos_protocol_alpha.Environment.Error_monad.shell_tzresult
    Tezos_protocol_alpha.Environment.Lwt.t

val register : unit -> unit

val total_voting_power : 
  'a Tezos_protocol_alpha.Environment.RPC_context.simple ->
  'a ->
  Tezos_protocol_alpha.Environment.Int64.t
    Tezos_protocol_alpha.Environment.Error_monad.shell_tzresult
    Tezos_protocol_alpha.Environment.Lwt.t

val delegate_proposal_count : 
  'a Tezos_protocol_alpha.Environment.RPC_context.simple ->
  'a ->
  Tezos_protocol_alpha.Protocol.Implicit_account_repr.t ->
  int Tezos_protocol_alpha.Environment.Error_monad.shell_tzresult
    Tezos_protocol_alpha.Environment.Lwt.t

module S : sig ... end