tezos-mockup-registration 7.4

val path : 
  (unit,
    (unit * [ `Main | `Test | `Hash of Tezos_crypto.Chain_id.t ])
    * [ `Genesis
      | `Head of int
      | `Alias of [ `Caboose | `Checkpoint | `Save_point ] * int
      | `Hash of Tezos_crypto.Block_hash.t * int
      | `Level of Int32.t ])
    Tezos_rpc.RPC_path.t

type raw_block_header = {

shell : Tezos_base.Block_header.shell_header;
protocol_data : Protocol.block_header_data;

}

type block_header = {

chain_id : Tezos_crypto.Chain_id.t;
hash : Tezos_crypto.Block_hash.t;
shell : Tezos_base.Block_header.shell_header;
protocol_data : Protocol.block_header_data;

}

type block_metadata = {

protocol_data : Protocol.block_header_metadata;
test_chain_status : Tezos_base.Test_chain_status.t;
max_operations_ttl : int;
max_operation_data_length : int;
max_block_header_length : int;
operation_list_quota : Tezos_shell_services__Block_services.operation_list_quota list;

}

type operation = {

chain_id : Tezos_crypto.Chain_id.t;
hash : Tezos_crypto.Operation_hash.t;
shell : Tezos_base.Operation.shell_header;
protocol_data : Protocol.operation_data;
receipt : Protocol.operation_receipt;

}

type block_info = {

chain_id : Tezos_crypto.Chain_id.t;
hash : Tezos_crypto.Block_hash.t;
header : raw_block_header;
metadata : block_metadata;
operations : operation list list;

}

val info : 
  Tezos_rpc.RPC_context.simple ->
  ?chain:[ `Main | `Test | `Hash of Tezos_crypto.Chain_id.t ] ->
  ?block:
    [ `Genesis
    | `Head of int
    | `Alias of [ `Caboose | `Checkpoint | `Save_point ] * int
    | `Hash of Tezos_crypto.Block_hash.t * int
    | `Level of Int32.t ] ->
  unit ->
  (block_info, Tezos_error_monad.Error_monad.error list) result Lwt.t

val hash : 
  Tezos_rpc.RPC_context.simple ->
  ?chain:[ `Main | `Test | `Hash of Tezos_crypto.Chain_id.t ] ->
  ?block:
    [ `Genesis
    | `Head of int
    | `Alias of [ `Caboose | `Checkpoint | `Save_point ] * int
    | `Hash of Tezos_crypto.Block_hash.t * int
    | `Level of Int32.t ] ->
  unit ->
  (Tezos_crypto.Block_hash.t, Tezos_error_monad.Error_monad.error list) result
    Lwt.t

val raw_header : 
  Tezos_rpc.RPC_context.simple ->
  ?chain:[ `Main | `Test | `Hash of Tezos_crypto.Chain_id.t ] ->
  ?block:
    [ `Genesis
    | `Head of int
    | `Alias of [ `Caboose | `Checkpoint | `Save_point ] * int
    | `Hash of Tezos_crypto.Block_hash.t * int
    | `Level of Int32.t ] ->
  unit ->
  (Bytes.t, Tezos_error_monad.Error_monad.error list) result Lwt.t

val header : 
  Tezos_rpc.RPC_context.simple ->
  ?chain:[ `Main | `Test | `Hash of Tezos_crypto.Chain_id.t ] ->
  ?block:
    [ `Genesis
    | `Head of int
    | `Alias of [ `Caboose | `Checkpoint | `Save_point ] * int
    | `Hash of Tezos_crypto.Block_hash.t * int
    | `Level of Int32.t ] ->
  unit ->
  (block_header, Tezos_error_monad.Error_monad.error list) result Lwt.t

val metadata : 
  Tezos_rpc.RPC_context.simple ->
  ?chain:[ `Main | `Test | `Hash of Tezos_crypto.Chain_id.t ] ->
  ?block:
    [ `Genesis
    | `Head of int
    | `Alias of [ `Caboose | `Checkpoint | `Save_point ] * int
    | `Hash of Tezos_crypto.Block_hash.t * int
    | `Level of Int32.t ] ->
  unit ->
  (block_metadata, Tezos_error_monad.Error_monad.error list) result Lwt.t

module Header : sig ... end

module Operations : sig ... end

module Operation_hashes : sig ... end

module Context : sig ... end

module Helpers : sig ... end

module Mempool : sig ... end

val live_blocks : 
  Tezos_rpc.RPC_context.simple ->
  ?chain:[ `Main | `Test | `Hash of Tezos_crypto.Chain_id.t ] ->
  ?block:
    [ `Genesis
    | `Head of int
    | `Alias of [ `Caboose | `Checkpoint | `Save_point ] * int
    | `Hash of Tezos_crypto.Block_hash.t * int
    | `Level of Int32.t ] ->
  unit ->
  (Tezos_crypto.Block_hash.Set.t, Tezos_error_monad.Error_monad.error list)
    result
    Lwt.t

module S : sig ... end