module Cookie

: sig

Functions for the HTTP Cookie and Set-Cookie header fields. Using the Set-Cookie header field, an HTTP server can pass name/value pairs and associated metadata (called cookies) to a user agent. When the user agent makes subsequent requests to the server, the user agent uses the metadata and other information to determine whether to return the name/value pairs in the Cookie header.

type expiration = [

| `Session

| `Max_age of int64

]

Lifetime of the cookie after which the user agent discards it

module Set_cookie_hdr : sig

type t = {

# cookie	: cookie	;
# expiration	: expiration	;
# domain	: string option	;
# path	: string option	;
# secure	: bool	;
# http_only	: bool	;

}

A header which a server sends to a client to request that the client returns the cookie in future requests, under certain conditions.

val http_only : t -> bool

val secure : t -> bool

val path : t -> string option

val domain : t -> string option

val expiration : t -> expiration

module Fields : sig

val names : string list

val http_only : (t, bool) Fieldslib.Field.t

val secure : (t, bool) Fieldslib.Field.t

val path : (t, string option) Fieldslib.Field.t

val domain : (t, string option) Fieldslib.Field.t

val expiration : (t, expiration) Fieldslib.Field.t

val fold : init:'acc__ -> cookie:('acc__ -> (t, cookie) Fieldslib.Field.t -> 'acc__) -> expiration:('acc__ -> (t, expiration) Fieldslib.Field.t -> 'acc__) -> domain:('acc__ -> (t, string option) Fieldslib.Field.t -> 'acc__) -> path:('acc__ -> (t, string option) Fieldslib.Field.t -> 'acc__) -> secure:('acc__ -> (t, bool) Fieldslib.Field.t -> 'acc__) -> http_only:('acc__ -> (t, bool) Fieldslib.Field.t -> 'acc__) -> 'acc__

val make_creator : cookie:((t, cookie) Fieldslib.Field.t -> 'compile_acc__ -> ('input__ -> cookie) * 'compile_acc__) -> expiration:((t, expiration) Fieldslib.Field.t -> 'compile_acc__ -> ('input__ -> expiration) * 'compile_acc__) -> domain:((t, string option) Fieldslib.Field.t -> 'compile_acc__ -> ('input__ -> string option) * 'compile_acc__) -> path:((t, string option) Fieldslib.Field.t -> 'compile_acc__ -> ('input__ -> string option) * 'compile_acc__) -> secure:((t, bool) Fieldslib.Field.t -> 'compile_acc__ -> ('input__ -> bool) * 'compile_acc__) -> http_only:((t, bool) Fieldslib.Field.t -> 'compile_acc__ -> ('input__ -> bool) * 'compile_acc__) -> 'compile_acc__ -> ('input__ -> t) * 'compile_acc__

val create : cookie:cookie -> expiration:expiration -> domain:string option -> path:string option -> secure:bool -> http_only:bool -> t

val map : cookie:((t, cookie) Fieldslib.Field.t -> cookie) -> expiration:((t, expiration) Fieldslib.Field.t -> expiration) -> domain:((t, string option) Fieldslib.Field.t -> string option) -> path:((t, string option) Fieldslib.Field.t -> string option) -> secure:((t, bool) Fieldslib.Field.t -> bool) -> http_only:((t, bool) Fieldslib.Field.t -> bool) -> t

val iter : cookie:((t, cookie) Fieldslib.Field.t -> unit) -> expiration:((t, expiration) Fieldslib.Field.t -> unit) -> domain:((t, string option) Fieldslib.Field.t -> unit) -> path:((t, string option) Fieldslib.Field.t -> unit) -> secure:((t, bool) Fieldslib.Field.t -> unit) -> http_only:((t, bool) Fieldslib.Field.t -> unit) -> unit

val for_all : cookie:((t, cookie) Fieldslib.Field.t -> bool) -> expiration:((t, expiration) Fieldslib.Field.t -> bool) -> domain:((t, string option) Fieldslib.Field.t -> bool) -> path:((t, string option) Fieldslib.Field.t -> bool) -> secure:((t, bool) Fieldslib.Field.t -> bool) -> http_only:((t, bool) Fieldslib.Field.t -> bool) -> bool

val exists : cookie:((t, cookie) Fieldslib.Field.t -> bool) -> expiration:((t, expiration) Fieldslib.Field.t -> bool) -> domain:((t, string option) Fieldslib.Field.t -> bool) -> path:((t, string option) Fieldslib.Field.t -> bool) -> secure:((t, bool) Fieldslib.Field.t -> bool) -> http_only:((t, bool) Fieldslib.Field.t -> bool) -> bool

val to_list : cookie:((t, cookie) Fieldslib.Field.t -> 'elem__) -> expiration:((t, expiration) Fieldslib.Field.t -> 'elem__) -> domain:((t, string option) Fieldslib.Field.t -> 'elem__) -> path:((t, string option) Fieldslib.Field.t -> 'elem__) -> secure:((t, bool) Fieldslib.Field.t -> 'elem__) -> http_only:((t, bool) Fieldslib.Field.t -> 'elem__) -> 'elem__ list

val map_poly : ([<

| `Read

| `Set_and_create

], t, 'x0) Fieldslib.Field.user -> 'x0 list

module Direct : sig

val iter : t -> cookie:((t, cookie) Fieldslib.Field.t -> t -> cookie -> unit) -> expiration:((t, expiration) Fieldslib.Field.t -> t -> expiration -> unit) -> domain:((t, string option) Fieldslib.Field.t -> t -> string option -> unit) -> path:((t, string option) Fieldslib.Field.t -> t -> string option -> unit) -> secure:((t, bool) Fieldslib.Field.t -> t -> bool -> unit) -> http_only:((t, bool) Fieldslib.Field.t -> t -> bool -> unit) -> unit

val fold : t -> init:'acc__ -> cookie:('acc__ -> (t, cookie) Fieldslib.Field.t -> t -> cookie -> 'acc__) -> expiration:('acc__ -> (t, expiration) Fieldslib.Field.t -> t -> expiration -> 'acc__) -> domain:('acc__ -> (t, string option) Fieldslib.Field.t -> t -> string option -> 'acc__) -> path:('acc__ -> (t, string option) Fieldslib.Field.t -> t -> string option -> 'acc__) -> secure:('acc__ -> (t, bool) Fieldslib.Field.t -> t -> bool -> 'acc__) -> http_only:('acc__ -> (t, bool) Fieldslib.Field.t -> t -> bool -> 'acc__) -> 'acc__

end

val make : ?expiration:expiration -> ?path:string -> ?domain:string -> ?secure:bool -> ?http_only:bool -> cookie -> t

val serialize : ?version:[

| `HTTP_1_0

| `HTTP_1_1

] -> t -> string * string

Return an HTTP header

val extract : Header.t -> (string * t) list

Return the list of cookies sent by the server

val value : t -> string

The value

val expiration : t -> expiration

The expiration

val domain : t -> string option

The domain for which the cookie is valid, if any

val path : t -> string option

The path for which the cookie is valid, if any

val secure : t -> bool

Has the cookie's secure attribute been set?

val t_of_sexp : Sexplib.Sexp.t -> t

val sexp_of_t : t -> Sexplib.Sexp.t

end

module Cookie_hdr : sig

val extract : Header.t -> cookie list

Return the list of cookies sent by the client

val serialize : cookie list -> string * string

serialize cookies returns an HTTP header containing cookies

end

val expiration_of_sexp : Sexplib.Sexp.t -> expiration

val __expiration_of_sexp__ : Sexplib.Sexp.t -> expiration

val sexp_of_expiration : expiration -> Sexplib.Sexp.t

end