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

graph-store: fixed nested node scry

Browse Source
This commit is contained in:
Logan Allen 2020-06-20 15:56:00 -04:00
parent a2484f9538
commit f5be1389ef
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
pkg/arvo/app/graph-store.hoon
View File

@ -341,21 +341,23 @@
=/ =ship (slav %p i.t.t.path)
=/ =term i.t.t.t.path
=/ =index:store (turn t.t.t.t.path |=(=cord (slav %ud cord)))
=/ graph=(unit graph:store) (~(get by graphs) [ship term])
?~ graph ~
=/ node=(unit node:store) [~ *node:store]
=/ parent-graph=(unit graph:store) (~(get by graphs) [ship term])
?~ parent-graph ~
=/ node=(unit node:store) ~
=/ =graph:store u.parent-graph
|-
?~ index
?~ node ~
``noun+!>(u.node)
?~ t.index
=. node (get:orm u.graph i.index)
=. node (get:orm graph i.index)
?~ node ~
``noun+!>(u.node)
=. node (get:orm graph i.index)
?~ node ~
?- -.children.u.node
%empty ~
%graph $(node (get:orm p.children.u.node i.index))
%graph $(graph p.children.u.node, index t.index)
==
==
::