diff --git a/arvo/eyre.hoon b/arvo/eyre.hoon index 319770a771..518f7b6ec5 100644 --- a/arvo/eyre.hoon +++ b/arvo/eyre.hoon @@ -1494,6 +1494,7 @@ %- jobe :~ oryx+s+orx ixor+s+(oryx-to-ixor orx) + sein+(jape +:<(sein our)>) ship+(jape +:) user+(jape +:) auth+a+(turn (~(tap in aut)) |=(a/@p (jape +:))) diff --git a/ren/tree/json.hoon b/ren/tree/json.hoon index d20c1068ff..0c97cb91dd 100644 --- a/ren/tree/json.hoon +++ b/ren/tree/json.hoon @@ -20,6 +20,7 @@ {$path $t} {$spur $t} :: + {$beak $t} {$comt $j} {$plan $j} {$head $r} @@ -52,6 +53,7 @@ :- -.a ?- -.a $name (from-type +.a ?^(s.bem i.s.bem q.bem)) + $beak (from-type +.a (crip (spud (tope bem(s /))))) $path (from-type +.a (crip (spud (flop s.bem)))) $spur (from-type +.a (crip (spud s.bem))) $plan (from-type +.a plan.dat) @@ -73,10 +75,10 @@ :: [tree .] ^- json -=+ default='spur.t_mime.m_body.r_comt.j_kids.name.t' +=+ default='spur.t_mime.m_body.r_comt.j_plan.j_beak.t_kids.name.t' =+ ^= schem =+ seh=(fall (~(get by qix.gas) 'q') default) ~|(bad-noun+seh ;;(schema (rash seh read-schem))) -%+ from-queries bem.gas(s but.gas) +%+ from-queries bem.gas ~| invalid-query+schem ;;((list query) (schema-to-plist schem))