From 0eae33af9e3fc532639ae2c9e94885749c79ef81 Mon Sep 17 00:00:00 2001 From: Joe Bryan Date: Fri, 18 May 2018 12:23:34 -0400 Subject: [PATCH] disables some overly-restrictive json response parsing --- app/acme.hoon | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/app/acme.hoon b/app/acme.hoon index 2d6106b34b..bc48a8edfe 100644 --- a/app/acme.hoon +++ b/app/acme.hoon @@ -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 ::