urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-18 15:55:00 +03:00
Code Issues Packages Projects Releases Wiki Activity

kiln: update other agents on kernel updates

Browse Source
This commit is contained in:
Ted Blackman 2021-09-27 19:34:15 -04:00
parent 18701b2ad2
commit 855e97d17a
2 changed files with 16 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
pkg/arvo/lib/hood/kiln.hoon
View File

@ -685,7 +685,7 @@
?: ?=(%jolt i.t.wire) ?: ?=(%jolt i.t.wire)
(take-onto wire syn) (take-onto wire syn)
?: ?=(%listen i.t.wire) ?: ?=(%listen i.t.wire)
abet:(take-listen wire syn) (take-listen wire syn)
=< abet =< abet
=. vats (from-wire wire) =. vats (from-wire wire)
?+ i.t.wire ?+ i.t.wire
@ -812,30 +812,29 @@
:: ::
++ take-listen ++ take-listen
|= [=wire syn=sign-arvo] |= [=wire syn=sign-arvo]
^+ vats ^+ kiln
?> ?=([@ %writ ~ *] syn) ?> ?=([@ %writ ~ *] syn)
=/ lac=desk (head wire) =/ lac=desk (head wire)
:: ignore spurious updates from clay on desks we've uninstalled :: ignore spurious updates from clay on desks we've uninstalled
:: ::
?. (~(has by ark) lac) ?. (~(has by ark) lac)
vats kiln
=. vats (from-wire wire) =. kiln
=. vats (emit listen:pass) =< abet
take-commit =. vats (from-wire wire)
:: ~> %slog.(fmt "commit detected at {here}")
++ take-commit =. vats (emil listen:pass (diff:give %commit loc rak) ~)
^+ vats ?. liv.rein.rak
~> %slog.(fmt "commit detected at {here}") ~> %slog.(fmt "{<loc>} not running")
=. vats (emit (diff:give %commit loc rak)) vats
=? vats liv.rein.rak update-running-dudes update-running-dudes
?. =(%base loc) ?. =(%base lac)
vats kiln
=/ kel=[@tas @ud] =/ kel=[@tas @ud]
?~ rail.rak zuse/zuse ?~ rail.rak zuse/zuse
?~ next.u.rail.rak zuse/zuse ?~ next.u.rail.rak zuse/zuse
weft.i.next.u.rail.rak weft.i.next.u.rail.rak
=. kiln (bump-many kel (all-desks-but (sy %base ~))) (bump-many kel (all-desks-but (sy %base ~)))
vats
:: ::
++ take-merge-main ++ take-merge-main
|= syn=sign-arvo |= syn=sign-arvo

3
pkg/base-dev/sur/hood.hoon
View File

@ -170,8 +170,7 @@
=rein =rein
== ==
^- [jolt=(list dude) idle=(list dude)] ^- [jolt=(list dude) idle=(list dude)]
=/ all=(list dude) =/ all=(list dude) (read-bill local)
(read-bill local)
=/ want (get-apps-want all rein) =/ want (get-apps-want all rein)
=/ have (get-apps-live local) =/ have (get-apps-live local)
[want (skip have ~(has in (sy want)))] [want (skip have ~(has in (sy want)))]