ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-09-20 23:18:00 +03:00
Code Issues Packages Projects Releases Wiki Activity

gall: suspend agents on upgrade

Browse Source
This commit is contained in:
Ted Blackman 2021-07-07 14:08:21 -04:00
parent e8dc993d84
commit 0e144314c3
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -173,6 +173,13 @@
[%g %wiping-eyre-subs]
|- ^+ mo-core
?~ apps mo-core
?. =(%base q.beak.egg.i.apps)
~> %slog.[0 leaf+"gall: suspending {<dap.i.apps>}"]
=. old-state.egg.i.apps
=/ old old-state.egg.i.apps
|/?-(-.old %| p.old, %& p.old)
=/ ap-core (ap-abut:ap:mo-core i.apps)
$(apps t.apps, mo-core ap-abet:ap-core)
~> %slog.[0 leaf+"gall: upgrading {<dap.i.apps>}"]
=/ ap-core (ap-abut:ap:mo-core i.apps)
=? ap-core ?=(%& -.old-state.egg.i.apps)
@ -1468,13 +1475,11 @@
=^ maybe-tang ap-core (ap-upgrade-state old-agent-state)
::
=. agent-config
=/ =term ?~(old-agent-state %boot %bump)
=/ possibly-suss
?~ maybe-tang
=/ =suss [agent-name term now]
[%.y suss]
[%.n u.maybe-tang]
[possibly-suss agent-config]
:_ agent-config
^- (each suss tang)
?^ maybe-tang
|/u.maybe-tang
&/[agent-name ?~(old-agent-state %boot %bump) now]
::
[maybe-tang ap-core]
:: +ap-upgrade-state: low-level install.