assoc>tokens ( json -- tokens ) (original) (raw)

assoc>tokens ( json -- tokens )

Vocabulary
oauth2

Inputs

json an object

Outputs

tokens an object

Definition

USING: assocs kernel ;

IN: oauth2

: assoc>tokens ( json -- tokens )
[ "access_token" of ] [ "refresh_token" of ]
[ assoc>expiry ] tri tokens boa ;