Blocks (mavkit-shell-libs.Mavryk_shell_services.Chain

val list : 
  Mavryk_rpc.Context.simple ->
  ?chain:chain ->
  ?heads:Mavryk_base.TzPervasives.Block_hash.t list ->
  ?length:int ->
  ?min_date:Mavryk_base.Time.Protocol.t ->
  unit ->
  Mavryk_base.TzPervasives.Block_hash.t list list
    Mavryk_base.TzPervasives.tzresult
    Lwt.t

include module type of Block_services.Empty

val path : 
  (unit, Block_services.chain_prefix * Block_services.block) Mavryk_rpc.Path.t

type raw_block_header =
  Block_services.Make(Block_services.Fake_protocol)(Block_services.Fake_protocol).raw_block_header =
  {

shell : Mavryk_base.Block_header.shell_header;
protocol_data : Block_services.Fake_protocol.block_header_data;

}

type block_header =
  Block_services.Make(Block_services.Fake_protocol)(Block_services.Fake_protocol).block_header =
  {

chain_id : Mavryk_base.TzPervasives.Chain_id.t;
hash : Mavryk_base.TzPervasives.Block_hash.t;
shell : Mavryk_base.Block_header.shell_header;
protocol_data : Block_services.Fake_protocol.block_header_data;

}

type block_metadata =
  Block_services.Make(Block_services.Fake_protocol)(Block_services.Fake_protocol).block_metadata =
  {

protocol_data : Block_services.Fake_protocol.block_header_metadata;
test_chain_status : Mavryk_base.Test_chain_status.t;
max_operations_ttl : int;
max_operation_data_length : int;
max_block_header_length : int;
operation_list_quota : Block_services.operation_list_quota list;

}

type operation_receipt =
  Block_services.Make(Block_services.Fake_protocol)(Block_services.Fake_protocol).operation_receipt =

| Empty
| Too_large
| Receipt of Block_services.Fake_protocol.operation_receipt

type operation =
  Block_services.Make(Block_services.Fake_protocol)(Block_services.Fake_protocol).operation =
  {

chain_id : Mavryk_base.TzPervasives.Chain_id.t;
hash : Mavryk_base.TzPervasives.Operation_hash.t;
shell : Mavryk_base.Operation.shell_header;
protocol_data : Block_services.Fake_protocol.operation_data;
receipt : operation_receipt;

}

type block_info =
  Block_services.Make(Block_services.Fake_protocol)(Block_services.Fake_protocol).block_info =
  {

chain_id : Mavryk_base.TzPervasives.Chain_id.t;
hash : Mavryk_base.TzPervasives.Block_hash.t;
header : raw_block_header;
metadata : block_metadata option;
operations : operation list list;

}

val block_info_encoding : 
  (Block_services.version * block_info)
    Mavryk_base.TzPervasives.Data_encoding.t

val info : 
  Mavryk_rpc.Context.simple ->
  ?version:Block_services.version ->
  ?force_metadata:bool ->
  ?metadata:[ `Always | `Never ] ->
  ?chain:Block_services.chain ->
  ?block:Block_services.block ->
  unit ->
  block_info Mavryk_base.TzPervasives.tzresult Lwt.t

val hash : 
  Mavryk_rpc.Context.simple ->
  ?chain:Block_services.chain ->
  ?block:Block_services.block ->
  unit ->
  Mavryk_base.TzPervasives.Block_hash.t Mavryk_base.TzPervasives.tzresult Lwt.t

val raw_header : 
  Mavryk_rpc.Context.simple ->
  ?chain:Block_services.chain ->
  ?block:Block_services.block ->
  unit ->
  Mavryk_base.TzPervasives.Bytes.t Mavryk_base.TzPervasives.tzresult Lwt.t

val header : 
  Mavryk_rpc.Context.simple ->
  ?chain:Block_services.chain ->
  ?block:Block_services.block ->
  unit ->
  block_header Mavryk_base.TzPervasives.tzresult Lwt.t

val metadata : 
  Mavryk_rpc.Context.simple ->
  ?version:Block_services.version ->
  ?chain:Block_services.chain ->
  ?block:Block_services.block ->
  unit ->
  block_metadata Mavryk_base.TzPervasives.tzresult Lwt.t

val metadata_hash : 
  Mavryk_rpc.Context.simple ->
  ?chain:Block_services.chain ->
  ?block:Block_services.block ->
  unit ->
  Mavryk_base.TzPervasives.Block_metadata_hash.t
    Mavryk_base.TzPervasives.tzresult
    Lwt.t

val resulting_context_hash : 
  Mavryk_rpc.Context.simple ->
  ?chain:Block_services.chain ->
  ?block:Block_services.block ->
  unit ->
  Mavryk_base.TzPervasives.Context_hash.t Mavryk_base.TzPervasives.tzresult
    Lwt.t

module Header : sig ... end

module Operations : sig ... end

module Operation_hashes : sig ... end

module Operation_metadata_hashes : sig ... end

module Context : sig ... end

module Helpers : sig ... end

module Mempool : sig ... end

val live_blocks : 
  Mavryk_rpc.Context.simple ->
  ?chain:Block_services.chain ->
  ?block:Block_services.block ->
  unit ->
  Mavryk_base.TzPervasives.Block_hash.Set.t Mavryk_base.TzPervasives.tzresult
    Lwt.t

module S : sig ... end

type protocols = {

current_protocol : Mavryk_base.TzPervasives.Protocol_hash.t;
next_protocol : Mavryk_base.TzPervasives.Protocol_hash.t;

}

val protocols : 
  Mavryk_rpc.Context.simple ->
  ?chain:chain ->
  ?block:Block_services.block ->
  unit ->
  protocols Mavryk_base.TzPervasives.tzresult Lwt.t