kiln: don't revive apps at wrong kelvin

This commit is contained in:
Philip Monk 2021-11-10 22:17:05 -08:00
parent db68577951
commit a796c9439c
No known key found for this signature in database
GPG Key ID: B66E1F02604E44EC

View File

@ -191,7 +191,7 @@
==
^- [jolt=(list dude) idle=(list dude)]
=/ all=(list dude) (read-bill local)
=/ want (get-apps-want all rein)
=/ want (get-apps-want local all rein)
=/ have (get-apps-live local)
[want (skip have ~(has in (sy want)))]
::
@ -223,9 +223,10 @@
:: +get-apps-want: find which apps should be running on a desk
::
++ get-apps-want
|= [duz=(list dude) =rein]
|= [local=[our=ship =desk now=@da] duz=(list dude) =rein]
^- (list dude)
?. liv.rein ~
?. |(=(`zuse+zuse (read-kelvin-local local)) =(%base desk.local)) ~
=. duz (skip duz ~(has in sub.rein))
=. duz (weld duz (skip ~(tap in add.rein) ~(has in (sy duz))))
duz