65 lines
1.9 KiB
OCaml
65 lines
1.9 KiB
OCaml
(**************************************************************************)
|
|
(* *)
|
|
(* Copyright (c) 2014 - 2018. *)
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
(* *)
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
(* *)
|
|
(**************************************************************************)
|
|
|
|
open Data_encoding
|
|
|
|
|
|
module S = struct
|
|
|
|
let protocols_arg = Protocol_hash.rpc_arg
|
|
|
|
let contents =
|
|
RPC_service.post_service
|
|
~query: RPC_query.empty
|
|
~input: empty
|
|
~output:
|
|
(obj1 (req "data" (Protocol.encoding)))
|
|
RPC_path.(root / "protocols" /: protocols_arg)
|
|
|
|
type list_param = {
|
|
contents: bool option ;
|
|
monitor: bool option ;
|
|
}
|
|
|
|
let list_param_encoding =
|
|
conv
|
|
(fun {contents; monitor} -> (contents, monitor))
|
|
(fun (contents, monitor) -> {contents; monitor})
|
|
(obj2
|
|
(opt "contents" bool)
|
|
(opt "monitor" bool))
|
|
|
|
let list =
|
|
RPC_service.post_service
|
|
~query: RPC_query.empty
|
|
~input: list_param_encoding
|
|
~output:
|
|
(obj1
|
|
(req "protocols"
|
|
(list
|
|
(obj2
|
|
(req "hash" Protocol_hash.encoding)
|
|
(opt "contents"
|
|
(dynamic_size Protocol.encoding)))
|
|
)))
|
|
RPC_path.(root / "protocols")
|
|
|
|
end
|
|
|
|
open RPC_context
|
|
let contents ctxt h =
|
|
make_call1 S.contents ctxt h () ()
|
|
let monitor ?(contents = false) ctxt =
|
|
make_streamed_call S.list ctxt () ()
|
|
{ contents = Some contents ; monitor = Some true }
|
|
let list ?(contents = false) ctxt =
|
|
make_call S.list ctxt () ()
|
|
{ contents = Some contents ; monitor = Some false }
|
|
|