tezos-protocol-002-PsYLVpVv 9.7

module Manager : sig ... end

val endorsement : 
  'a Tezos_protocol_environment_002_PsYLVpVv__Environment.RPC_context.simple ->
  'a ->
  branch:Tezos_base__TzPervasives.Block_hash.t ->
  level:Alpha_context.Raw_level.t ->
  unit ->
  (Tezos_protocol_environment_structs.V0.M.MBytes.t,
    Tezos_base__TzPervasives.Error_monad.error list)
    Stdlib.result
    Lwt.t

val proposals : 
  'a Tezos_protocol_environment_002_PsYLVpVv__Environment.RPC_context.simple ->
  'a ->
  branch:Tezos_base__TzPervasives.Block_hash.t ->
  source:Alpha_context.public_key_hash ->
  period:Alpha_context.Voting_period.t ->
  proposals:Tezos_base__TzPervasives.Protocol_hash.t list ->
  unit ->
  (Tezos_protocol_environment_structs.V0.M.MBytes.t,
    Tezos_base__TzPervasives.Error_monad.error list)
    Stdlib.result
    Lwt.t

val ballot : 
  'a Tezos_protocol_environment_002_PsYLVpVv__Environment.RPC_context.simple ->
  'a ->
  branch:Tezos_base__TzPervasives.Block_hash.t ->
  source:Alpha_context.public_key_hash ->
  period:Alpha_context.Voting_period.t ->
  proposal:Tezos_base__TzPervasives.Protocol_hash.t ->
  ballot:Alpha_context.Vote.ballot ->
  unit ->
  (Tezos_protocol_environment_structs.V0.M.MBytes.t,
    Tezos_base__TzPervasives.Error_monad.error list)
    Stdlib.result
    Lwt.t

val seed_nonce_revelation : 
  'a Tezos_protocol_environment_002_PsYLVpVv__Environment.RPC_context.simple ->
  'a ->
  branch:Tezos_base__TzPervasives.Block_hash.t ->
  level:Alpha_context.Raw_level.t ->
  nonce:Alpha_context.Nonce.t ->
  unit ->
  (Tezos_protocol_environment_structs.V0.M.MBytes.t,
    Tezos_base__TzPervasives.Error_monad.error list)
    Stdlib.result
    Lwt.t

val double_baking_evidence : 
  'a Tezos_protocol_environment_002_PsYLVpVv__Environment.RPC_context.simple ->
  'a ->
  branch:Tezos_base__TzPervasives.Block_hash.t ->
  bh1:Alpha_context.Block_header.t ->
  bh2:Alpha_context.Block_header.t ->
  unit ->
  (Tezos_protocol_environment_structs.V0.M.MBytes.t,
    Tezos_base__TzPervasives.Error_monad.error list)
    Stdlib.result
    Lwt.t

val double_endorsement_evidence : 
  'a Tezos_protocol_environment_002_PsYLVpVv__Environment.RPC_context.simple ->
  'a ->
  branch:Tezos_base__TzPervasives.Block_hash.t ->
  op1:Alpha_context.Kind.endorsement Alpha_context.operation ->
  op2:Alpha_context.Kind.endorsement Alpha_context.operation ->
  unit ->
  (Tezos_protocol_environment_structs.V0.M.MBytes.t,
    Tezos_base__TzPervasives.Error_monad.error list)
    Stdlib.result
    Lwt.t

val protocol_data : 
  'a Tezos_protocol_environment_002_PsYLVpVv__Environment.RPC_context.simple ->
  'a ->
  priority:int ->
  ?seed_nonce_hash:Nonce_hash.t ->
  ?proof_of_work_nonce:Tezos_protocol_environment_structs.V0.M.MBytes.t ->
  unit ->
  (Tezos_protocol_environment_structs.V0.M.MBytes.t,
    Tezos_base__TzPervasives.Error_monad.error list)
    Stdlib.result
    Lwt.t

package tezos-protocol-002-PsYLVpVv