sign-jwt ( header payload secret/f method/f -- jwt )

Vocabulary

crypto.jwt

Inputs

header	an object
payload	an object
secret/f	an object
method/f	an object

Outputs

jwt

an object

Definition

USING: kernel sequences ;

IN: crypto.jwt

: sign-jwt ( header payload secret/f method/f -- jwt )
    [ jwt-encode-header-payload dup ] 2dip hmac-signature
    "." "" glue-as ;