push-hook: version proxied pokes

This commit is contained in:
Liam Fitzgerald 2021-03-11 14:14:25 +10:00
parent b9206aacec
commit 35bbb358f2
No known key found for this signature in database
GPG Key ID: D390E12C61D1CFFB
4 changed files with 8 additions and 6 deletions

View File

@ -169,7 +169,7 @@
::
%fact
?+ p.cage.sign ~|([dap.bowl %bad-sub-mark wire p.cage.sign] !!)
%graph-update
%graph-update-0
%- on-graph-update:tc
!<(update:graph q.cage.sign)
==
@ -758,7 +758,7 @@
::TODO move creation into lib?
%^ act %out-message
%graph-push-hook
:- %graph-update
:- %graph-update-0
!> ^- update:graph
:+ %0 now.bowl
:+ %add-nodes audience

View File

@ -182,7 +182,7 @@
~[watch-graph:ha]
::
%fact
?. ?=(%graph-update p.cage.sign)
?. ?=(%graph-update-0 p.cage.sign)
(on-agent:def wire sign)
=^ cards state
(graph-update !<(update:graph-store q.cage.sign))

View File

@ -108,7 +108,7 @@
::
%fact
?+ p.cage.sign (on-agent:def wire sign)
%group-update
%group-update-0
=^ cards state
(group-update !<(update:group-store q.cage.sign))
[cards this]

View File

@ -231,7 +231,7 @@
:_ this
(forward-update:hc vase)
=^ cards state
(poke-update:hc vase)
(poke-update:hc mark vase)
[cards this]
::
=^ cards push-hook
@ -318,8 +318,10 @@
ver ~(. versioning [bowl [update-mark version min-version]:config])
::
++ poke-update
|= vas=vase
|= =cage
^- (quip card:agent:gall _state)
=/ vas=vase
(convert-to:ver cage)
=/ vax=(unit vase) (transform-proxy-update:og vas)
?> ?=(^ vax)
=/ wire (make-wire /store)