2017-12-07 20:43:21 +04:00
|
|
|
(**************************************************************************)
|
|
|
|
|
(* *)
|
2018-02-06 00:17:03 +04:00
|
|
|
(* Copyright (c) 2014 - 2018. *)
|
2017-12-07 20:43:21 +04:00
|
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
|
|
|
(* *)
|
|
|
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
|
|
|
(* *)
|
|
|
|
|
(**************************************************************************)
|
|
|
|
|
|
|
|
|
|
type t = {
|
|
|
|
|
allowed_headers : string list ;
|
|
|
|
|
allowed_origins : string list ;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
val default: t
|
|
|
|
|
|
|
|
|
|
val add_headers:
|
|
|
|
|
Cohttp.Header.t -> t -> string option -> Cohttp.Header.t
|
|
|
|
|
|
