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

fix bug in +move-root-to-cache

Browse Source
This commit is contained in:
Ted Blackman 2018-09-24 13:44:52 -07:00
parent 78eb61cc09
commit c31bcb95e6
1 changed files with 8 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
sys/vane/ford.hoon
View File

@ -1561,6 +1561,11 @@
|= =build-status
%_ build-status
clients
:: if we've already encountered :i.subs, don't overwrite
::
?: (~(has by clients.build-status) [%cache new-id])
clients.build-status
::
=/ old-clients-on-duct (~(get ju clients.build-status) [%duct duct])
::
=- (~(del by -) [%duct duct])
@ -1725,7 +1730,9 @@
=. builds.state
%+ ~(jab by builds.state) new-sub
|= =build-status
build-status(clients (~(put ju clients.build-status) [%duct duct] new-client))
%_ build-status
clients (~(put ju clients.build-status) [%duct duct] new-client)
==
::
state
--
@ -5500,22 +5507,6 @@
:: nothing depends on :build, so we'll remove it
::
:- removed=&
^+ state
::
=/ subs=(list ^build) ~(tap in ~(key by subs.build-status))
:: for each sub, remove :build from its :clients
::
=. builds.state
|- ^+ builds.state
?~ subs builds.state
::
=? builds.state (~(has by builds.state) i.subs)
::
%+ ~(jab by builds.state) i.subs
|= build-status=^build-status
build-status(clients (~(del ju clients.build-status) [%duct duct] build))
::
$(subs t.subs)
::
%_ state
builds-by-schematic