+live removed, logic moved into give

This commit is contained in:
dachus 2023-04-24 11:49:17 -03:00
parent d8ce64b76e
commit f0a9f40cbe

View File

@ -227,7 +227,10 @@
^- (quip card:agent:gall pubs) ^- (quip card:agent:gall pubs)
?~ ((soft ^path) path) ~| %need-path !! ?~ ((soft ^path) path) ~| %need-path !!
=/ buoy (~(gut by pub) path *buoy) =/ buoy (~(gut by pub) path *buoy)
?@ tide=tid.buoy ~| %dead-path !! ::TODO is this good behavior? =? buoy ?=(@ tid.buoy)
%*(. buoy(tid *tide) rok.tid (put:rok ~ +(tid.buoy) *rock:lake))
?> ?=(^ tid.buoy)
=* tide tid.buoy
=/ next=aeon +((latest tide)) =/ next=aeon +((latest tide))
:- %+ murn ~(tap bi mem.tide) :- %+ murn ~(tap bi mem.tide)
|= [=ship =dude =@da] |= [=ship =dude =@da]
@ -291,12 +294,6 @@
++ kill :: subs to not expect updates. ++ kill :: subs to not expect updates.
(curr edit |=(=buoy buoy(tid (latest tid.buoy)))) (curr edit |=(=buoy buoy(tid (latest tid.buoy))))
:: :: Reopen list of killed paths. :: :: Reopen list of killed paths.
++ live :: No-ops on live paths.
%+ curr edit
|= =buoy
?^ tid.buoy buoy
%*(. buoy(tid *tide) rok.tid (put:rok ~ +(tid.buoy) *rock:lake))
::
++ read :: See current published states. ++ read :: See current published states.
^- (map paths [allowed=(unit (set ship)) =rock:lake]) ^- (map paths [allowed=(unit (set ship)) =rock:lake])
%- malt %+ murn ~(tap by pub) %- malt %+ murn ~(tap by pub)