Header.StrictTransportSecurity
Convenience to create the HSTS header.
type t = private {
max_age : int;
In seconds
include_subdomains : bool;
preload : bool;
}
val make : ?include_subdomains:bool -> ?preload:bool -> int -> t
make(?include_subdomains, ?preload, max_age) represents an HSTS header with the given options.
make(?include_subdomains, ?preload, max_age)
val to_header : t -> string * string