2016-09-08 21:13:10 +04:00
|
|
|
(**************************************************************************)
|
|
|
|
(* *)
|
2017-11-14 03:36:14 +04:00
|
|
|
(* Copyright (c) 2014 - 2017. *)
|
2016-09-08 21:13:10 +04:00
|
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
|
|
(* *)
|
|
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
|
|
(* *)
|
|
|
|
(**************************************************************************)
|
|
|
|
|
2016-12-01 21:27:53 +04:00
|
|
|
(** Typed RPC services: definition, binding and dispatch. *)
|
2016-09-08 21:13:10 +04:00
|
|
|
|
2017-11-27 09:13:12 +04:00
|
|
|
module Data : Resto.ENCODING with type 'a t = 'a Data_encoding.t
|
|
|
|
and type schema = Data_encoding.json_schema
|
2016-09-08 21:13:10 +04:00
|
|
|
|
2017-11-27 09:13:12 +04:00
|
|
|
include (module type of struct include Resto end)
|
2017-11-27 09:13:12 +04:00
|
|
|
module Service : (module type of struct include Resto.MakeService(Data) end)
|
2016-09-08 21:13:10 +04:00
|
|
|
|
2017-11-27 09:13:12 +04:00
|
|
|
(** Compatibility layer, to be removed ASAP. *)
|
2016-09-08 21:13:10 +04:00
|
|
|
|
2017-12-07 20:43:21 +04:00
|
|
|
val forge_request :
|
|
|
|
(_ , unit, 'params, unit, 'input, 'output, unit) Service.t ->
|
2017-11-27 09:13:12 +04:00
|
|
|
'params -> 'input -> MethMap.key * string list * Data_encoding.json
|
2016-09-08 21:13:10 +04:00
|
|
|
|