ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-15 10:02:47 +03:00
Code Issues Packages Projects Releases Wiki Activity

graph-push-hook: prevent fuse-loop

Browse Source
This commit is contained in:
Logan Allen 2021-02-24 15:30:49 -06:00
parent 22d1348e57
commit 63dc2f4c36
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
pkg/arvo/app/graph-push-hook.hoon
View File

@ -83,12 +83,13 @@
!< $-([index:store post:store atom ?] [index:store post:store])
%. !>(*indexed-post:store)
.^(tube:clay (scry:hc %cc %home /[u.mark]/transform-add-nodes))
=/ [* lis=(list [index:store node:store])]
=/ [* result=(list [index:store node:store])]
%+ roll
(flatten-node-map ~(tap by nodes.q.update))
(transform-list transform)
=. nodes.q.update
(~(gas by *(map index:store node:store)) lis)
%- ~(gas by *(map index:store node:store))
result
[~ !>(update)]
::
++ flatten-node-map
@ -96,7 +97,7 @@
^- (list [index:store node:store])
|^
%- sort-nodes
%+ weld
%+ welp
(turn lis empty-children)
%- zing
%+ turn lis
@ -112,9 +113,9 @@
[index node(children [%empty ~])]
::
++ sort-nodes
|= lis=(list [index:store node:store])
|= unsorted=(list [index:store node:store])
^- (list [index:store node:store])
%+ sort lis
%+ sort unsorted
|= [p=[=index:store *] q=[=index:store *]]
^- ?
(lth (lent index.p) (lent index.q))