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. *)
|
|
|
|
(* *)
|
|
|
|
(**************************************************************************)
|
|
|
|
|
|
|
|
|
2017-11-27 09:13:12 +04:00
|
|
|
module Directory :
|
2017-12-07 20:43:21 +04:00
|
|
|
(module type of struct include Resto_directory.Make(RPC.Data) end)
|
|
|
|
include (module type of struct include Resto_directory end)
|
2016-09-08 21:13:10 +04:00
|
|
|
|
2017-11-27 09:13:12 +04:00
|
|
|
(** Typed RPC services: server implementation. *)
|
2016-09-08 21:13:10 +04:00
|
|
|
|
2017-11-27 09:13:12 +04:00
|
|
|
type cors = {
|
|
|
|
allowed_headers : string list ;
|
|
|
|
allowed_origins : string list ;
|
|
|
|
}
|
|
|
|
|
|
|
|
type media_type = {
|
|
|
|
name: string ;
|
|
|
|
construct: 'a. 'a Data_encoding.t -> 'a -> string ;
|
|
|
|
destruct: 'a. 'a Data_encoding.t -> string -> ('a, string) result ;
|
|
|
|
}
|
|
|
|
|
|
|
|
val json : media_type
|
|
|
|
val octet_stream : media_type
|
|
|
|
|
|
|
|
(** A handle on the server worker. *)
|
|
|
|
type server
|
2016-09-08 21:13:10 +04:00
|
|
|
|
2017-11-27 09:13:12 +04:00
|
|
|
(** Promise a running RPC server.*)
|
|
|
|
val launch :
|
|
|
|
?host:string ->
|
|
|
|
?cors:cors ->
|
|
|
|
media_types:media_type list ->
|
|
|
|
Conduit_lwt_unix.server ->
|
|
|
|
unit Directory.t ->
|
|
|
|
server Lwt.t
|
2016-12-11 19:34:58 +04:00
|
|
|
|
2017-11-27 09:13:12 +04:00
|
|
|
(** Kill an RPC server. *)
|
|
|
|
val shutdown : server -> unit Lwt.t
|