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

disables some overly-restrictive json response parsing

Browse Source
This commit is contained in:
Joe Bryan 2018-05-18 12:23:34 -04:00
parent 2bbd8af930
commit 0eae33af9e
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
app/acme.hoon
View File

@ -1091,9 +1091,10 @@
?> ?=([%1 *] der)
=/ aut=auth (~(got by aut.der) i)
?> ?=([%1 *] aut)
=/ bod=[typ=@t sas=@t url=purl tok=@t]
(challenge:grab (need (de-json:html q:(need r.rep))))
?> ?=(%pending sas.bod)
:: XX 204 assuming pending?
:: =/ bod=[typ=@t sas=@t url=purl tok=@t]
:: (challenge:grab (need (de-json:html q:(need r.rep))))
:: ?> ?=(%pending sas.bod)
=. sas.cal.aut %pend
=. der der(aut (~(put by aut.der) i aut))
=. rod (~(put by rod) ider der)
@ -1121,8 +1122,9 @@
==
::
%fin
=/ bod=[aut=(list purl) fin=purl exp=@t sas=@t]
(order:grab (need (de-json:html q:(need r.rep))))
:: XX rep body missing authorizations
:: =/ bod=[aut=(list purl) fin=purl exp=@t sas=@t]
:: (order:grab (need (de-json:html q:(need r.rep))))
:: XX check status? (i don't think failures get here)
abet:poll-order
::