diff --git a/pkg/arvo/app/graph-store.hoon b/pkg/arvo/app/graph-store.hoon index bdfabe744..32178dee7 100644 --- a/pkg/arvo/app/graph-store.hoon +++ b/pkg/arvo/app/graph-store.hoon @@ -473,6 +473,20 @@ :+ %0 now.bowl [%add-graph [ship term] `graph:store`p.u.result q.u.result] + :: + :: note: near-duplicate of /x/graph + :: + [%x %archive @ @ ~] + =/ =ship (slav %p i.t.t.path) + =/ =term i.t.t.t.path + =/ result=(unit marked-graph:store) + (~(get by archive) [ship term]) + ?~ result [~ ~] + :- ~ :- ~ :- %graph-update + !> ^- update:store + :+ %0 + now.bowl + [%add-graph [ship term] `graph:store`p.u.result q.u.result] :: [%x %graph-subset @ @ @ @ ~] =/ =ship (slav %p i.t.t.path) diff --git a/pkg/arvo/gen/graph-store/export-graph.hoon b/pkg/arvo/gen/graph-store/export-graph.hoon new file mode 100644 index 000000000..d29f95a88 --- /dev/null +++ b/pkg/arvo/gen/graph-store/export-graph.hoon @@ -0,0 +1,11 @@ +/+ graph-store +:: +:- %say +|= $: [now=@da eny=@uvJ bec=beak] + [=ship graph=term ~] + == +:- %noun +=/ our (scot %p p.bec) +=/ wen (scot %da now) +=/ who (scot %p ship) +.^(update:graph-store /gx/[our]/graph-store/[wen]/[who]/[graph])