tokens-params ( oauth2 code -- params ) (original) (raw)
tokens-params ( oauth2 code -- params )
Vocabulary
oauth2
Inputs
| oauth2 | an object |
|---|---|
| code | an object |
Outputs
| params | an object |
|---|
Definition
USING: accessors combinators make ;
: tokens-params ( oauth2 code -- params )
[
"code" ,, {
[ client-id>> "client_id" ,, ]
[ client-secret>> "client_secret" ,, ]
[ redirect-uri>> "redirect_uri" ,, ]
[ extra-params>> %% ]
} cleave "authorization_code" "grant_type" ,,
] { } make ;