Parameter Make.1-Rpc_intf

type ('query, 'response) 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