ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-11 16:09:31 +03:00
Code Issues Packages Projects Releases Wiki Activity

factor out token-response keyspec

Browse Source
This commit is contained in:
Anton Dyudin 2016-03-10 19:59:21 -08:00
parent 06e461b542
commit bbe47f441c
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lib/oauth1.hoon
View File

@ -175,10 +175,12 @@
~|(%multiple-tokens-unsupported !!)
[%send (add-auth a token-exchange)]
::
++ token-response ['oauth_token' 'oauth_token_secret']
+- bak-save-access
|= handle/$-(token _done)
%- (res-parse 'oauth_token' 'oauth_secret')
|=(axs-tok/{@t @t} [[%redo ~] (handle `token`access-token+axs-tok)])
%- (res-parse token-response)
|= access-token/{tok/@t sec/@t} ^- core-move
[[%redo ~] (handle `token`[%access-token access-token])]
::
+- res-parse
|* para/quay-keys
@ -191,18 +193,18 @@
::
++ res-give |=(a/httr [%give a])
+- res-handle-reqt
|= handle/$-(token _done)
|= handle/$-(token _done) ^- $-(httr core-move)
?~ tok
(res-save-reqt handle)
res-give
::
+- res-save-reqt
|= handle/$-(token _done)
%- (res-parse ['oauth_token' 'oauth_secret'] 'oauth_callback_confirmed')
|= {req-tok/{@t @t} cof/term} ^- core-move
|= handle/$-(token _done) ^- $-(httr core-move)
%- (res-parse token-response 'oauth_callback_confirmed')
|= {request-token/{tok/@t sec/@t} cof/term} ^- core-move
?. =(%true cof)
~|(%callback-rejected !!)
[[%redo ~] (handle [%request-token req-tok])]
[[%redo ~] (handle `token`[%request-token request-token])]
::
::
++ add-auth