151 up and running baby

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

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 ~)]

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)))
 --