tezos-protocol-plugin-alpha 10.2

module S : sig ... end

val register : unit -> unit

module Manager : sig ... end

val operation : 
  'a Tezos_protocol_alpha.Protocol.Environment.RPC_context.simple ->
  'a ->
  branch:Tezos_crypto.Block_hash.t ->
  'b Tezos_protocol_alpha.Protocol.Alpha_context.contents ->
  (bytes,
    Tezos_error_monad.TzCore.error Tezos_error_monad.Error_monad.TzTrace.trace)
    Stdlib.result
    Lwt.t

val endorsement : 
  'a Tezos_protocol_alpha.Protocol.Environment.RPC_context.simple ->
  'a ->
  branch:Tezos_crypto.Block_hash.t ->
  level:Tezos_protocol_alpha.Protocol.Alpha_context.Raw_level.t ->
  unit ->
  (bytes,
    Tezos_error_monad.TzCore.error Tezos_error_monad.Error_monad.TzTrace.trace)
    Stdlib.result
    Lwt.t

val proposals : 
  'a Tezos_protocol_alpha.Protocol.Environment.RPC_context.simple ->
  'a ->
  branch:Tezos_crypto.Block_hash.t ->
  source:Tezos_crypto.Signature.public_key_hash ->
  period:int32 ->
  proposals:Tezos_crypto.Protocol_hash.t list ->
  unit ->
  (bytes,
    Tezos_error_monad.TzCore.error Tezos_error_monad.Error_monad.TzTrace.trace)
    Stdlib.result
    Lwt.t

val ballot : 
  'a Tezos_protocol_alpha.Protocol.Environment.RPC_context.simple ->
  'a ->
  branch:Tezos_crypto.Block_hash.t ->
  source:Tezos_crypto.Signature.public_key_hash ->
  period:int32 ->
  proposal:Tezos_crypto.Protocol_hash.t ->
  ballot:Tezos_protocol_alpha.Protocol.Alpha_context.Vote.ballot ->
  unit ->
  (bytes,
    Tezos_error_monad.TzCore.error Tezos_error_monad.Error_monad.TzTrace.trace)
    Stdlib.result
    Lwt.t

val failing_noop : 
  'a Tezos_protocol_alpha.Protocol.Environment.RPC_context.simple ->
  'a ->
  branch:Tezos_crypto.Block_hash.t ->
  message:string ->
  unit ->
  (bytes,
    Tezos_error_monad.TzCore.error Tezos_error_monad.Error_monad.TzTrace.trace)
    Stdlib.result
    Lwt.t

val seed_nonce_revelation : 
  'a Tezos_protocol_alpha.Protocol.Environment.RPC_context.simple ->
  'a ->
  branch:Tezos_crypto.Block_hash.t ->
  level:Tezos_protocol_alpha.Protocol.Alpha_context.Raw_level.t ->
  nonce:Tezos_protocol_alpha.Protocol.Alpha_context.Nonce.t ->
  unit ->
  (bytes,
    Tezos_error_monad.TzCore.error Tezos_error_monad.Error_monad.TzTrace.trace)
    Stdlib.result
    Lwt.t

val double_baking_evidence : 
  'a Tezos_protocol_alpha.Protocol.Environment.RPC_context.simple ->
  'a ->
  branch:Tezos_crypto.Block_hash.t ->
  bh1:Tezos_protocol_alpha.Protocol.Alpha_context.Block_header.t ->
  bh2:Tezos_protocol_alpha.Protocol.Alpha_context.Block_header.t ->
  unit ->
  (bytes,
    Tezos_error_monad.TzCore.error Tezos_error_monad.Error_monad.TzTrace.trace)
    Stdlib.result
    Lwt.t

val double_endorsement_evidence : 
  'a Tezos_protocol_alpha.Protocol.Environment.RPC_context.simple ->
  'a ->
  branch:Tezos_crypto.Block_hash.t ->
  op1:
    Tezos_protocol_alpha.Protocol.Alpha_context.Kind.endorsement
      Tezos_protocol_alpha.Protocol.Alpha_context.operation ->
  op2:
    Tezos_protocol_alpha.Protocol.Alpha_context.Kind.endorsement
      Tezos_protocol_alpha.Protocol.Alpha_context.operation ->
  slot:int ->
  unit ->
  (bytes,
    Tezos_error_monad.TzCore.error Tezos_error_monad.Error_monad.TzTrace.trace)
    Stdlib.result
    Lwt.t

val empty_proof_of_work_nonce : bytes

val protocol_data : 
  'a Tezos_protocol_alpha.Protocol.Environment.RPC_context.simple ->
  'a ->
  priority:int ->
  ?seed_nonce_hash:Tezos_protocol_alpha.Protocol.Nonce_hash.t ->
  ?proof_of_work_nonce:bytes ->
  liquidity_baking_escape_vote:bool ->
  unit ->
  (bytes,
    Tezos_error_monad.TzCore.error Tezos_error_monad.Error_monad.TzTrace.trace)
    Stdlib.result
    Lwt.t

package tezos-protocol-plugin-alpha