urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-04 18:43:46 +03:00
Code Issues Packages Projects Releases Wiki Activity

kiln: update +poke-suspend to use a list of desks

Browse Source
This commit is contained in:
silnem2 2023-04-13 08:40:14 -06:00
parent 36fb1303d3
commit 6a0f66b836
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -784,8 +784,16 @@
`(foal where %sched !>((~(put by old) tym eve)))
::
++ poke-suspend
|= =desk
abet:(emit %pass /kiln/suspend %arvo %c %zest desk %dead)
|= desks=(list desk)
=< abet
%- emil
%+ turn
%+ skim desks
|= dek=desk
?: (~(has in .^((set desk) %cd /(scot %p our)/base/(scot %da now))) dek)
&
((slog leaf+"kiln: desk does not yet exist: {<dek>}" ~) |)
|=(=desk [%pass /kiln/suspend %arvo %c %zest desk %dead])
::
++ poke-sync
|= hos=kiln-sync