parse-token ( response data -- token )

Vocabulary

oauth1.private

Inputs

response	an object
data	an object

Outputs

token

an object

Definition

USING: accessors assocs kernel oauth1 urls.encoding ;

IN: oauth1.private

: parse-token ( response data -- token )
    nip query>assoc
    [ [ "oauth_token" ] dip at ]
    [ [ "oauth_token_secret" ] dip at ] [ extract-user-data ]
    tri [ <token> ] dip >>user-data ;