From c16488d6af3afe4ab0e3625dace6880bc63b97a7 Mon Sep 17 00:00:00 2001 From: Henry Ault Date: Mon, 22 Feb 2016 17:50:21 -0800 Subject: [PATCH] 151 up and running baby --- app/gmail.hoon | 2 +- gen/hood/init-oauth2.hoon | 16 ++++++++-------- lib/oauth2.hoon | 2 +- 3 files changed, 10 insertions(+), 10 deletions(-) diff --git a/app/gmail.hoon b/app/gmail.hoon index 2a19e93ed..036347823 100644 --- a/app/gmail.hoon +++ b/app/gmail.hoon @@ -15,7 +15,7 @@ :: for webhook-powered event notifications. For event list, :: see https://developer.github.com/webhooks/. :: -:: See the %github app for example usage. +:: See the%github app for example usage. :: /? 314 /- rfc, gmail-label diff --git a/gen/hood/init-oauth2.hoon b/gen/hood/init-oauth2.hoon index 3bf35da84..04e217c23 100644 --- a/gen/hood/init-oauth2.hoon +++ b/gen/hood/init-oauth2.hoon @@ -8,26 +8,26 @@ !: [sole .] :- %ask -|= $: [now=@da eny=@uvI bec=beak] - [arg=$|(~ [dom=path ~])] - ~ +|= $: {now/@da eny/@uvI bec/beak} + {arg/$@($~ {dom/path $~})} + $~ == -^- (sole-result ,[%write-sec-atom p=host q=@]) +^- (sole-result {$write-sec-atom p/host q/@}) =- ?~ arg - (fun.q.q [%& dom.arg]) %+ sole-lo [%& %oauth-hostname "api hostname: https://"] %+ sole-go thos:urlp -|= hot=host -?: ?=(%| -.hot) +|= hot/host +?: ?=($| -.hot) ~|(%ips-unsupported !!) %+ sole-lo [%& %oauth-client "client id: "] %+ sole-go (boss 256 (star prn)) -|= cid=@t +|= cid/@t %+ sole-lo [%& %oauth-secret "client secret: "] %+ sole-go (boss 256 (star prn)) -|= cis=@t +|= cis/@t %+ sole-so %write-sec-atom :: XX typed pair [hot (role cid cis ~)] diff --git a/lib/oauth2.hoon b/lib/oauth2.hoon index ecd04cd09..389be1569 100644 --- a/lib/oauth2.hoon +++ b/lib/oauth2.hoon @@ -34,7 +34,7 @@ ++ token ?(~ @t) ++ refresh {tok/token needed/@da pending/_`?`|} ++ keys cord:{cid/@t cis/@t} -++ core-move |*(a/* $&([sec-move _a] sec-move)) +++ core-move |*(a/* $&({sec-move _a} sec-move)) ::here's a change ++ decode-keys :: XX from bale w/ typed %jael |=(key/keys ((hard {cid/@t cis/@t $~}) (lore key))) --