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

better type-checking

Browse Source
This commit is contained in:
Anton Dyudin 2016-04-07 17:44:43 -07:00
parent 97c200bf43
commit d90b71dde9
2 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/oauth1.hoon
View File

@ -189,6 +189,7 @@
++ standard
|* {done/* save/$-(token *)} :: save/$-(token _done)
|%
++ save ^-($-(token _done) ^save) :: shadow(type canary)
++ core-move $^({sec-move _done} sec-move) :: stateful
::
:: use token to sign authorization header. expects:
@ -230,7 +231,7 @@
:: If a valid access token has been returned, save it
++ bak-save-token
|= a/httr ^- core-move
?: (bad-response p.a)
?: (bad-response p.a)
[%give a] :: [%redo ~] :: handle 4xx?
=+ access-token=(grab-token-response a)
[[%redo ~] (save `token`[%access-token access-token])]

10
lib/oauth2.hoon
View File

@ -58,6 +58,8 @@
::
++ auth-url
|= {scopes/(list @t) url/$@(@t purl)} ^- purl
~& [%oauth-warning "Make sure this urbit ".
"is running on {(earn our-host `~ ~)}"]
%+ add-query:interpolate url
%- quay:hep-to-cab
:~ state+?.(state-usr '' (pack usr /''))
@ -68,8 +70,6 @@
::
++ our-host .^(hart %e /(scot %p our)/host/fake)
++ redirect-uri
~& [%oauth-warning "Make sure this urbit ".
"is running on {(earn our-host `~ ~)}"]
%- crip %- earn
%^ interpolate 'https://our-host/~/ac/:domain/:user/in'
`our-host
@ -132,8 +132,9 @@
--
::
++ standard
|* {done/* save/$-(token *)} :: save/$-(token _done)
|* {done/* save/$-(token *)}
|%
++ save ^-($-(token _done) ^save) :: shadow(type canary)
++ core-move $^({sec-move _done} sec-move) :: stateful
::
++ out-add-query-param
@ -165,9 +166,10 @@
--
::
++ standard-refreshing
|* {done/* ref/refresh save/$-({token refresh} *)} :: $-(both-tokens _done)
|* {done/* ref/refresh save/$-({token refresh} *)}
=+ s=(standard done |=(tok/token (save tok ref)))
|%
++ save ^-($-(both-tokens _done) ^save) :: shadow(type canary)
++ core-move $^({sec-move _done} sec-move) :: stateful
::
:: See ++out-add-query-param:standard