Rpcs (mina_networking.Mina

module Get_staged_ledger_aux_and_pending_coinbases_at_hash : sig ... end

module Answer_sync_ledger_query : sig ... end

module Get_transition_chain : sig ... end

module Get_transition_knowledge : sig ... end

module Get_transition_chain_proof : sig ... end

module Get_ancestry : sig ... end

module Ban_notify : sig ... end

module Get_best_tip : sig ... end

module Get_node_status : sig ... end

module Get_some_initial_peers : sig ... end

type ('query, 'response) rpc =

| Get_some_initial_peers : ( Get_some_initial_peers.query,
                           Get_some_initial_peers.response )
                           rpc

| Get_staged_ledger_aux_and_pending_coinbases_at_hash : ( Get_staged_ledger_aux_and_pending_coinbases_at_hash.query,
                                                        Get_staged_ledger_aux_and_pending_coinbases_at_hash.response )
                                                        rpc

| Answer_sync_ledger_query : ( Answer_sync_ledger_query.query,
                             Answer_sync_ledger_query.response )
                             rpc

| Get_transition_chain : ( Get_transition_chain.query,
                         Get_transition_chain.response )
                         rpc

| Get_transition_knowledge : ( Get_transition_knowledge.query,
                             Get_transition_knowledge.response )
                             rpc

| Get_transition_chain_proof : ( Get_transition_chain_proof.query,
                               Get_transition_chain_proof.response )
                               rpc

| Get_node_status : ( Get_node_status.query, Get_node_status.response ) rpc

| Get_ancestry : ( Get_ancestry.query, Get_ancestry.response ) rpc

| Ban_notify : ( Ban_notify.query, Ban_notify.response ) rpc

| Get_best_tip : ( Get_best_tip.query, Get_best_tip.response ) rpc

include Network_peer.Rpc_intf.Rpc_interface_intf
  with type ('q, 'r) rpc := ( 'q, 'r ) rpc

type rpc_handler =

| Rpc_handler : {

rpc : ( 'q, 'r ) rpc;

f : ( 'q, 'r ) Network_peer.Rpc_intf.rpc_fn;

cost : 'q -> int;

budget : int * [ `Per of Core.Time.Span.t ];

} -> rpc_handler

val implementation_of_rpc : 
  ( 'q, 'r ) rpc ->
  ( 'q, 'r ) Network_peer.Rpc_intf.rpc_implementation

val match_handler : 
  rpc_handler ->
  ( 'q, 'r ) rpc ->
  do_:( ( 'q, 'r ) Network_peer.Rpc_intf.rpc_fn -> 'a ) ->
  'a option