1d5b4c1e3b
Also split the module `Shell_services` in smaller modules.
82 lines
2.2 KiB
OCaml
82 lines
2.2 KiB
OCaml
(**************************************************************************)
|
|
(* *)
|
|
(* Copyright (c) 2014 - 2017. *)
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
(* *)
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
(* *)
|
|
(**************************************************************************)
|
|
|
|
val stat :
|
|
([ `POST ], unit,
|
|
unit, unit, unit,
|
|
P2p_stat.t, unit) RPC_service.t
|
|
|
|
val versions :
|
|
([ `POST ], unit,
|
|
unit, unit, unit,
|
|
P2p_version.t list, unit) RPC_service.t
|
|
|
|
val events :
|
|
([ `POST ], unit,
|
|
unit, unit, unit,
|
|
P2p_connection.Pool_event.t, unit) RPC_service.t
|
|
|
|
val connect :
|
|
([ `POST ], unit,
|
|
unit * P2p_point.Id.t, unit, float,
|
|
unit tzresult, unit) RPC_service.t
|
|
|
|
module Connection : sig
|
|
|
|
val list :
|
|
([ `POST ], unit,
|
|
unit, unit, unit,
|
|
P2p_connection.Info.t list, unit) RPC_service.t
|
|
|
|
val info :
|
|
([ `POST ], unit,
|
|
unit * P2p_peer.Id.t, unit, unit,
|
|
P2p_connection.Info.t option, unit) RPC_service.t
|
|
|
|
val kick :
|
|
([ `POST ], unit,
|
|
unit * P2p_peer.Id.t, unit, bool,
|
|
unit, unit) RPC_service.t
|
|
|
|
end
|
|
|
|
module Point : sig
|
|
val list :
|
|
([ `POST ], unit,
|
|
unit, unit, P2p_point.State.t list,
|
|
(P2p_point.Id.t * P2p_point.Info.t) list, unit) RPC_service.t
|
|
val info :
|
|
([ `POST ], unit,
|
|
unit * P2p_point.Id.t, unit, unit,
|
|
P2p_point.Info.t option, unit) RPC_service.t
|
|
val events :
|
|
([ `POST ], unit,
|
|
unit * P2p_point.Id.t, unit, bool,
|
|
P2p_point.Pool_event.t list, unit) RPC_service.t
|
|
end
|
|
|
|
module Peer_id : sig
|
|
|
|
val list :
|
|
([ `POST ], unit,
|
|
unit, unit, P2p_peer.State.t list,
|
|
(P2p_peer.Id.t * P2p_peer.Info.t) list, unit) RPC_service.t
|
|
|
|
val info :
|
|
([ `POST ], unit,
|
|
unit * P2p_peer.Id.t, unit, unit,
|
|
P2p_peer.Info.t option, unit) RPC_service.t
|
|
|
|
val events :
|
|
([ `POST ], unit,
|
|
unit * P2p_peer.Id.t, unit, bool,
|
|
P2p_peer.Pool_event.t list, unit) RPC_service.t
|
|
|
|
end
|