jws.jwt
Jwt.Claims
jws
type t = Jsont.json Jws.S.t
val empty : t
val iss : string -> t -> t
Set the "iss" (issuer) claim.
"iss"
val sub : string -> t -> t
Set the "sub" (subject) claim.
"sub"
val aud : string list -> t -> t
Set the "aud" (audience) claim as a single string.
"aud"
val exp : float -> t -> t
Set the "exp" (expiration time) claim as a epoch date (seconds since epoch)
"exp"
val nbf : float -> t -> t
Set the "nbf" (not before) claim as a epoch date (seconds since epoch).
"nbf"
val iat : float -> t -> t
Set the "iat" (issued at) claim as a epoch date (seconds since epoch).
"iat"
val jti : string -> t -> t
Set the "jti" (JWT ID) claim.
"jti"
val add : string -> 'a Jsont.t -> 'a -> t -> t
add key codec value claims sets a custom claim using a Jsont.t codec. For example:
add key codec value claims
Jsont.t
Claims.empty |> Claims.add "admin" Jsont.bool true