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

gall: comment subscription kill

Browse Source
This commit is contained in:
yosoyubik 2022-07-14 07:23:39 +02:00
parent d17fd7521a
commit 8712804d7f
1 changed files with 16 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
pkg/arvo/sys/vane/gall.hoon
View File

@ -226,21 +226,24 @@
(mean u.tan) (mean u.tan)
ap-core ap-core
$(apps t.apps, mo-core ap-abet:ap-core) $(apps t.apps, mo-core ap-abet:ap-core)
:: FIXME: ! kiln: %base not installed
:: ! /lib/hood/kiln/hoon:<[461 23].[461 42]>
:: ! /base/gall-lyv
:: kill subscriptions when upgrading to gall request queue fix :: kill subscriptions when upgrading to gall request queue fix
:: ::
=? mo-core (lth spore-tag %9) :: =? mo-core (lth spore-tag %9)
|- ^+ mo-core :: |- ^+ mo-core
?~ apps mo-core :: ?~ apps mo-core
~> %slog.[0 leaf+"gall: +ap-kill-down {<dap.i.apps>}"] :: ~> %slog.[0 leaf+"gall: +ap-kill-down {<dap.i.apps>}"]
=/ ap-core (ap-abut:ap:mo-core i.apps) :: =/ ap-core (ap-abut:ap:mo-core i.apps)
=. ap-core :: =. ap-core
=/ boats=(list [=wire =dock]) :: =/ boats=(list [=wire =dock])
~(tap in ~(key by boat.egg.i.apps)) :: ~(tap in ~(key by boat.egg.i.apps))
|- ^+ ap-core :: |- ^+ ap-core
?~ boats ap-core :: ?~ boats ap-core
=/ [=wire =dock] i.boats :: =/ [=wire =dock] i.boats
$(boats t.boats, ap-core (ap-kill-down:ap-core wire dock)) :: $(boats t.boats, ap-core (ap-kill-down:ap-core wire dock))
$(apps t.apps, mo-core ap-abet:ap-core) :: $(apps t.apps, mo-core ap-abet:ap-core)
=. mo-core (mo-subscribe-to-agent-builds:mo-core now) =. mo-core (mo-subscribe-to-agent-builds:mo-core now)
=^ moves adult-gate mo-abet:mo-core =^ moves adult-gate mo-abet:mo-core
=? moves ?=(^ fec) (weld moves [u.fec]~) =? moves ?=(^ fec) (weld moves [u.fec]~)