urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-03 05:43:18 +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

1
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:

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