urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-02 08:55:07 +03:00
Code Issues Packages Projects Releases Wiki Activity

facebook oauth compiles now

Browse Source
This commit is contained in:
Ted Blackman 2017-10-20 16:52:07 -07:00
parent af33cad733
commit 7959d9c75d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
sec/com/facebook.hoon
View File

@ -13,7 +13,7 @@
:: ::
:::: ::::
:: ::
|_ {bal/(bale keys:oauth2) access-token/token:oauth2} |_ {bal/(bale:eyre keys:oauth2) access-token/token:oauth2}
:: ++aut is a "standard oauth2" core, which implements the :: ++aut is a "standard oauth2" core, which implements the
:: most common handling of oauth2 semantics. see lib/oauth2 for more details, :: most common handling of oauth2 semantics. see lib/oauth2 for more details,
:: and examples at the bottom of the file. :: and examples at the bottom of the file.
@ -29,12 +29,12 @@
++ receive-auth-query-string (in-code-to-token:aut exchange-url) ++ receive-auth-query-string (in-code-to-token:aut exchange-url)
:: ::
++ receive-auth-response ++ receive-auth-response
|= a/httr ^- core-move:aut |= a/httr:eyre ^- core-move:aut
?: (bad-response:aut p.a) ?: (bad-response:aut p.a)
[%give a] :: [%redo ~] :: handle 4xx? [%give a] :: [%redo ~] :: handle 4xx?
=+ `{access-token/@t expires-in/@u}`(grab-expiring-token:aut a) =+ `{access-token/@t expires-in/@u}`(grab-expiring-token:aut a)
?. (lth expires-in ^~((div ~d7 ~s1))) :: short-lived token ?. (lth expires-in ^~((div ~d7 ~s1))) :: short-lived token
[[%redo ~] ..bak(access-token access-token)] [[%redo ~] +>.$(access-token access-token)]
:- %send :- %send
%^ request-token:aut exchange-url %^ request-token:aut exchange-url
grant-type='fb_exchange_token' grant-type='fb_exchange_token'