graph-store: remove unnecessary clay write upon clobber
?& !(~(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 ~ ~))
%- 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]
