tokens-params ( oauth2 code -- params )

Vocabulary

oauth2

Inputs

oauth2	an object
code	an object

Outputs

params

an object

Definition

USING: accessors combinators make ;

IN: oauth2

: 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 ;