50 lines
1.7 KiB
OCaml
50 lines
1.7 KiB
OCaml
(**************************************************************************)
|
|
(* *)
|
|
(* Copyright (c) 2014 - 2017. *)
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
(* *)
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
(* *)
|
|
(**************************************************************************)
|
|
|
|
type cors = Resto_cohttp.Server.cors = {
|
|
allowed_headers : string list ;
|
|
allowed_origins : string list ;
|
|
}
|
|
|
|
include Resto_directory
|
|
module Directory = Resto_directory.Make(RPC.Data)
|
|
|
|
include Resto_cohttp.Server.Make(RPC.Data)(Logging.RPC)
|
|
|
|
let json = {
|
|
name = "application/json" ;
|
|
construct = begin fun enc v ->
|
|
Data_encoding_ezjsonm.to_string @@
|
|
Data_encoding.Json.construct enc v
|
|
end ;
|
|
destruct = begin fun enc body ->
|
|
match Data_encoding_ezjsonm.from_string body with
|
|
| Error _ as err -> err
|
|
| Ok json ->
|
|
try Ok (Data_encoding.Json.destruct enc json)
|
|
with Data_encoding.Json.Cannot_destruct (_, exn) ->
|
|
Error (Format.asprintf "%a"
|
|
(fun fmt -> Data_encoding.Json.print_error fmt)
|
|
exn)
|
|
end ;
|
|
}
|
|
|
|
let octet_stream = {
|
|
name = "application/octet-stream" ;
|
|
construct = begin fun enc v ->
|
|
MBytes.to_string @@
|
|
Data_encoding.Binary.to_bytes enc v
|
|
end ;
|
|
destruct = begin fun enc s ->
|
|
match Data_encoding.Binary.of_bytes enc (MBytes.of_string s) with
|
|
| None -> Error "Failed to parse binary data."
|
|
| Some data -> Ok data
|
|
end ;
|
|
}
|