2016-09-08 21:13:10 +04:00
|
|
|
(**************************************************************************)
|
|
|
|
|
(* *)
|
|
|
|
|
(* Copyright (c) 2014 - 2016. *)
|
|
|
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
|
|
|
(* *)
|
|
|
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
|
|
|
(* *)
|
|
|
|
|
(**************************************************************************)
|
|
|
|
|
|
2016-12-01 21:27:53 +04:00
|
|
|
module Arg = Resto.Arg
|
|
|
|
|
module Path = Resto.Path
|
|
|
|
|
module Description = Resto.Description
|
|
|
|
|
let read_answer = Resto.read_answer
|
|
|
|
|
let forge_request = Resto.forge_request
|
|
|
|
|
let service ?description ~input ~output path =
|
|
|
|
|
Resto.service
|
|
|
|
|
?description
|
|
|
|
|
~input:(Data_encoding.Json.convert input)
|
|
|
|
|
~output:(Data_encoding.Json.convert output)
|
|
|
|
|
path
|
|
|
|
|
type ('prefix, 'params, 'input, 'output) service =
|
|
|
|
|
('prefix, 'params, 'input, 'output) Resto.service
|
2016-09-08 21:13:10 +04:00
|
|
|
|
2016-12-01 21:27:53 +04:00
|
|
|
include RestoDirectory
|
