gall: kill subscriptions after agents reload
=. state.adult
[%9 system-duct outstanding contacts yokes=~ blocked bug]:spore
=/ mo-core (mo-abed:mo:adult system-duct.state.adult)
- =. mo-core
=/ apps=(list [dap=term =egg]) ~(tap by eggs.spore)
+ :: upgrade %base apps and suspend others
+ ::
+ =. mo-core
|- ^+ mo-core
?~ apps mo-core
?. =(%base q.beak.egg.i.apps)
=^ tan ap-core (ap-install:ap-core `p.old-state.egg.i.apps)
?^ tan
(mean u.tan)
+ ap-core
+ $(apps t.apps, mo-core ap-abet:ap-core)
+ :: kill subscriptions when upgrading to gall request queue fix
+ ::
+ =. mo-core
+ |- ^+ mo-core
+ ?~ apps mo-core
=? ap-core (lth -.spore %9)
~> %slog.[0 leaf+"gall: running +ap-kill-down"]
=/ boats=(list [=wire =dock])
?~ boats ap-core
=/ [=wire =dock] i.boats
$(boats t.boats, ap-core (ap-kill-down:ap-core wire dock))
- ap-core
$(apps t.apps, mo-core ap-abet:ap-core)
=. mo-core (mo-subscribe-to-agent-builds:mo-core now)
=^ moves adult-gate mo-abet:mo-core
