graph-store: remove unnecessary clay write upon clobber

This commit is contained in:
Logan Allen 2020-12-11 14:53:02 -06:00
parent 82851feaea
commit 26b9c5a66f

View File

@ -257,20 +257,7 @@
?& !(~(has by archive) resource)
!(~(has by graphs) resource)
== ==
=/ old-graph=(unit marked-graph:store)
(~(get by graphs) resource)
?> (validate-graph graph mark)
=/ clay-backup=(list card)
?~ old-graph ~
=/ =wire
backup+(en-path:res resource)
=/ =update:store
[%0 now.bowl %add-graph resource p.u.old-graph q.u.old-graph %.y]
=/ =cage
graph-update+!>(update)
=/ =soba:clay
[(welp wire /[(scot %da now.bowl)]/graph-update) ins+cage]~
[%pass wire %arvo %c %info %home &+soba]~
:_ %_ state
graphs (~(put by graphs) resource [graph mark])
update-logs (~(put by update-logs) resource (gas:orm-log ~ ~))
@ -283,7 +270,6 @@
%- zing
:~ (give [/keys ~] %keys (~(put in ~(key by graphs)) resource))
(give [/updates ~] %add-graph resource *graph:store mark overwrite)
clay-backup
?~ mark ~
?: (~(has in validators) u.mark) ~
=/ wire /validator/[u.mark]