Merge pull request #3910 from urbit/lf/graph-cleanup

graph-store: run-updates no longer pokes itself
This commit is contained in:
matildepark 2020-11-10 23:24:24 -05:00 committed by GitHub
commit 565fc46660
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -505,26 +505,23 @@
^- (quip card _state) ^- (quip card _state)
?< (~(has by archive) resource) ?< (~(has by archive) resource)
?> (~(has by graphs) resource) ?> (~(has by graphs) resource)
:_ state =/ updates=(list [=time upd=logged-update:store])
%+ turn (tap:orm-log update-log) (tap:orm-log update-log)
|= [=time update=logged-update:store] =| cards=(list card)
^- card |- ^- (quip card _state)
?> ?=(%0 -.update) ?~ updates
:* %pass [cards state]
/run-updates/(scot %da time) =* update upd.i.updates
%agent =^ crds state
[our.bowl %graph-store] %- graph-update
%poke ^- update:store
:- %graph-update ?- -.q.update
!> %add-nodes update(resource.q resource)
^- update:store %remove-nodes update(resource.q resource)
?- -.q.update %add-signatures update(resource.uid.q resource)
%add-nodes update(resource.q resource) %remove-signatures update(resource.uid.q resource)
%remove-nodes update(resource.q resource) ==
%add-signatures update(resource.uid.q resource) $(cards (weld cards crds), updates t.updates)
%remove-signatures update(resource.uid.q resource)
==
==
:: ::
++ validate-graph ++ validate-graph
|= [=graph:store mark=(unit mark:store)] |= [=graph:store mark=(unit mark:store)]