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

inlined dbg-post

Browse Source
This commit is contained in:
Anton Dyudin 2016-04-07 12:51:11 -07:00
parent c75d71cd18
commit 5b2a8ce009
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/oauth1.hoon
View File

@ -69,7 +69,6 @@
=- (mean (flop `tang`[>a< -])) =- (mean (flop `tang`[>a< -]))
(turn (lore (crip b)) |=(c/cord leaf+(trip c))) (turn (lore (crip b)) |=(c/cord leaf+(trip c)))
:: ::
++ dbg-post `purl`[`hart`[| `6.000 [%& /localhost]] `pork``/testing `quay`/]
++ bad-response |=(a/@u ?:(=(2 (div a 100)) | ~&(bad-httr+a &))) ++ bad-response |=(a/@u ?:(=(2 (div a 100)) | ~&(bad-httr+a &)))
++ quay-keys |-($@(knot {$ $})) :: improper tree ++ quay-keys |-($@(knot {$ $})) :: improper tree
++ grab-quay :: ?=({@t @t @t} (grab-quay r:*httr %key1 %key2 %key3)) ++ grab-quay :: ?=({@t @t @t} (grab-quay r:*httr %key1 %key2 %key3))
@ -220,6 +219,7 @@
++ add-auth-header ++ add-auth-header
|= {extra/quay request/{url/purl meth hed/math (unit octs)}} |= {extra/quay request/{url/purl meth hed/math (unit octs)}}
^- hiss ^- hiss
:: =. url.request [| `6.000 [%& /localhost]] :: for use with unix nc
~& add-auth-header+(earn url.request) ~& add-auth-header+(earn url.request)
%_ request %_ request
hed hed

7
lib/oauth2.hoon
View File

@ -26,7 +26,6 @@
=- (mean (flop `tang`[>a< -])) =- (mean (flop `tang`[>a< -]))
(turn (lore (crip b)) |=(c/cord leaf+(trip c))) (turn (lore (crip b)) |=(c/cord leaf+(trip c)))
:: ::
++ dbg-post `purl`[`hart`[| `6.000 [%& /localhost]] `pork``/testing `quay`/]
++ bad-response |=(a/@u ?:(=(2 (div a 100)) | ~&(bad-httr+a &))) ++ bad-response |=(a/@u ?:(=(2 (div a 100)) | ~&(bad-httr+a &)))
++ grab-json ++ grab-json
|* {a/httr b/fist:jo} |* {a/httr b/fist:jo}
@ -122,14 +121,16 @@
++ out-quay ++ out-quay
|= {nam/knot tok/token} |= {nam/knot tok/token}
%+ out-filtered tok %+ out-filtered tok
|=(a/hiss %_(a r.p :_(r.p.a nam^`@t`tok))) |= a/hiss ^- hiss
:: =. p.p.a [| `6.000 [%& /localhost]] :: for use with unix nc
%_(a r.p :_(r.p.a nam^`@t`tok)))
:: ::
++ out-math ++ out-math
|= ber/token |= ber/token
=+ hed=(cat 3 'Bearer ' `@t`ber) =+ hed=(cat 3 'Bearer ' `@t`ber)
%+ out-filtered ber %+ out-filtered ber
|= a/hiss ^+ a |= a/hiss ^+ a
:: =. p.a dbg-post :: =. p.p.a [| `6.000 [%& /localhost]] :: for use with unix nc
%_(a q.q (~(add ja q.q.a) %authorization hed)) %_(a q.q (~(add ja q.q.a) %authorization hed))
:: ::
++ toke-req ++ toke-req