refresh-flow ( oauth2 tokens -- tokens' )


Vocabulary
oauth2

Inputs
oauth2an object
tokensan object


Outputs
tokens'an object


Definition
USING: accessors http.json kernel ;

IN: oauth2

: refresh-flow ( oauth2 tokens -- tokens' )
dupd refresh>> refresh-params
swap token-uri>> http-post-json nip assoc>tokens ;