2017-12-07 17:43:21 +01:00
|
|
|
(**************************************************************************)
|
|
|
|
(* *)
|
2018-02-05 21:17:03 +01:00
|
|
|
(* Copyright (c) 2014 - 2018. *)
|
2017-12-07 17:43:21 +01: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
|
|
|
|
|
2018-04-29 01:00:00 +02:00
|
|
|
val add_allow_origin:
|
|
|
|
Cohttp.Header.t -> t -> string option -> Cohttp.Header.t
|
|
|
|
|
2017-12-07 17:43:21 +01:00
|
|
|
val add_headers:
|
|
|
|
Cohttp.Header.t -> t -> string option -> Cohttp.Header.t
|
|
|
|
|