val http_only : (t, bool) Fieldslib.Field.tval secure : (t, bool) Fieldslib.Field.tval path : (t, string option) Fieldslib.Field.tval domain : (t, string option) Fieldslib.Field.tval expiration : (t, expiration) Fieldslib.Field.tval cookie : (t, cookie) Fieldslib.Field.tval fold : init:'acc__0 -> cookie:('acc__0 -> (t, cookie) Fieldslib.Field.t -> 'acc__1) -> expiration:('acc__1 -> (t, expiration) Fieldslib.Field.t -> 'acc__2) -> domain:('acc__2 -> (t, string option) Fieldslib.Field.t -> 'acc__3) -> path:('acc__3 -> (t, string option) Fieldslib.Field.t -> 'acc__4) -> secure:('acc__4 -> (t, bool) Fieldslib.Field.t -> 'acc__5) -> http_only:('acc__5 -> (t, bool) Fieldslib.Field.t -> 'acc__6) -> 'acc__6val make_creator : cookie:((t, cookie) Fieldslib.Field.t -> 'acc__0 -> ('input__ -> cookie) * 'acc__1) -> expiration:((t, expiration) Fieldslib.Field.t -> 'acc__1 -> ('input__ -> expiration) * 'acc__2) -> domain:((t, string option) Fieldslib.Field.t -> 'acc__2 -> ('input__ -> string option) * 'acc__3) -> path:((t, string option) Fieldslib.Field.t -> 'acc__3 -> ('input__ -> string option) * 'acc__4) -> secure:((t, bool) Fieldslib.Field.t -> 'acc__4 -> ('input__ -> bool) * 'acc__5) -> http_only:((t, bool) Fieldslib.Field.t -> 'acc__5 -> ('input__ -> bool) * 'acc__6) -> 'acc__0 -> ('input__ -> t) * 'acc__6val create : cookie:cookie -> expiration:expiration -> domain:string option -> path:string option -> secure:bool -> http_only:bool -> tval 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) -> tval 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) -> unitval 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) -> boolval 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) -> boolval 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__ listval map_poly : ([< `Read | `Set_and_create ], t, 'x0) Fieldslib.Field.user -> 'x0 listmodule Direct : sig ... end