diff --git a/pkg/arvo/mar/dns/complete.hoon b/pkg/arvo/mar/dns/complete.hoon index cbe67c6f0..17276f99e 100644 --- a/pkg/arvo/mar/dns/complete.hoon +++ b/pkg/arvo/mar/dns/complete.hoon @@ -8,5 +8,14 @@ ++ grab |% +$ noun [ship binding] + ++ json + =, dejs:format + |= jon=json + %. jon + %- ot + :~ [%ship |=(j=json ?>(?=([%s *] j) (rash +.j fed:ag)))] + [%address |=(j=json ?>(?=([%s *] j) [%if (rash +.j ip4:eyre)]))] + [%turf (ar so)] + == -- -- diff --git a/pkg/arvo/mar/dns/request.hoon b/pkg/arvo/mar/dns/request.hoon new file mode 100644 index 000000000..7b0e91a31 --- /dev/null +++ b/pkg/arvo/mar/dns/request.hoon @@ -0,0 +1,16 @@ +/- *dns +|_ r=request +++ grad %noun +++ grow + |% + ++ json + %- pairs:enjs:format + :~ ['ship' (ship:enjs:format ship.r)] + ['address' s+(rsh 3 (scot %if +.address.r))] + == + -- +++ grab + |% + ++ noun request + -- +-- diff --git a/pkg/arvo/ted/dns/address.hoon b/pkg/arvo/ted/dns/address.hoon index faf5b902c..feb9662c5 100644 --- a/pkg/arvo/ted/dns/address.hoon +++ b/pkg/arvo/ted/dns/address.hoon @@ -25,7 +25,7 @@ |= if=@if =/ m (strand ,~) ^- form:m - =/ collector-app `dock`[~zod %dns-collector] + =/ collector-app `dock`[~deg %dns-collector] ;< good=? bind:m (self-check-http:libdns |+if 2) ?. good %+ strand-fail:strandio %bail-early-self-check