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

use unify-jugs in +cleanup

Browse Source
This commit is contained in:
Ted Blackman 2018-03-20 10:33:29 -07:00
parent 9d4a6cf534
commit 962a1f9d5a
1 changed files with 2 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lib/ford-turbo.hoon
View File

@ -1187,27 +1187,9 @@
?~ kids all-deps
::
=/ grandkids ~(tap in (~(get ju sub-builds.components.state) i.kids))
=/ kid-deps-set (~(get by dependencies.state) i.kids)
=/ kid-deps ~(tap by (fall kid-deps-set ~))
:: TODO replace with ~(uni ju all-deps) kid-deps), requires +uni:ju
=/ kid-deps (fall (~(get by dependencies.state) i.kids) ~)
::
=/ unified-deps
|- ^+ all-deps
?~ kid-deps all-deps
::
::=+ [disc deps-set]=i.kid-deps is broken because of q face?
=/ disc=disc p.i.kid-deps
=/ deps-set=(set dependency) q.i.kid-deps
=/ deps ~(tap in deps-set)
=. all-deps
|- ^+ all-deps
?~ deps all-deps
::
$(deps t.deps, all-deps (~(put ju all-deps) disc i.deps))
::
$(kid-deps t.kid-deps)
::
$(kids (weld t.kids grandkids), all-deps unified-deps)
$(kids (weld t.kids grandkids), all-deps (unify-jugs all-deps kid-deps))
:: remove :build's direct dependencies
::
=. dependencies.state (~(del by dependencies.state) build)