urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-11-28 13:54:20 +03:00
Code Issues Packages Projects Releases Wiki Activity

graph-store: no-op if we already have *any* of the indexes in an %add-nodes event

Browse Source
This commit is contained in:
Logan Allen 2020-12-11 23:05:54 +00:00
parent 3a8264f96b
commit e845860e5e
1 changed files with 35 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -297,6 +297,10 @@
|^
=/ [=graph:store mark=(unit mark:store)]
(~(got by graphs) resource)
:: no-op if we already have any of the nodes
?: (check-for-duplicates resource ~(key by nodes))
::~& nooped-due-to-duplicate-nodes+[resource nodes]
[~ state]
=/ =update-log:store (~(got by update-logs) resource)
=. update-log
(put:orm-log update-log time [%0 time [%add-nodes resource nodes]])
@ -311,6 +315,37 @@
(add-node-list resource graph mark (sort-nodes nodes))
==
::
++ check-for-duplicates
|= [=resource:store nodes=(set index:store)]
^- ?
=| has-duplicates=_|
=/ node-list ~(tap in nodes)
|-
?~ node-list
has-duplicates
=? has-duplicates (has-node resource i.node-list) %.y
$(node-list t.node-list)
::
++ has-node
|= [=resource:store =index:store]
^- ?
=/ parent-graph=(unit marked-graph:store)
(~(get by graphs) resource)
?~ parent-graph %.n
=/ node=(unit node:store) ~
=/ =graph:store p.u.parent-graph
|-
?~ index
?=(^ node)
?~ t.index
?=(^ (get:orm graph i.index))
=. node (get:orm graph i.index)
?~ node %.n
?- -.children.u.node
%empty %.n
%graph $(graph p.children.u.node, index t.index)
==
::
++ sort-nodes
|= nodes=(map index:store node:store)
^- (list [index:store node:store])