ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-28 11:40:11 +03:00
Code Issues Packages Projects Releases Wiki Activity

clay: remote-install desks during migration

Browse Source
This commit is contained in:
Ted Blackman 2021-09-25 16:53:52 -04:00
parent bbc80f9d45
commit 8f115bf059
1 changed files with 29 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
pkg/arvo/sys/vane/clay.hoon
View File

@ -1605,15 +1605,36 @@
:: ::
++ install-from-tmp ++ install-from-tmp
|= =desk |= =desk
^+ ..park
=/ sen (^^sein:title rof our now our)
%- lime %- lime
:~ :^ hen %pass /dist/[desk]/create |^ ^- (list move)
%^ new-desk:cloy desk
(latest-tako desk)
;;((map path page) (cue (get-tmp-jam desk)))
:: ::
:^ hen %pass /dist/[desk]/install ?: =(sen our)
[%g %deal [our our] %hood %poke %kiln-install !>([desk our desk])] :~ create-desk
install-local
==
:~ create-desk
install-local
install-remote
== ==
::
++ create-desk ^- move
:^ hen %pass /dist/create/[desk]
%^ new-desk:cloy desk
(latest-tako desk)
;;((map path page) (cue (get-tmp-jam desk)))
::
++ install-local ^- move
:^ hen %pass /dist/install-local/[desk]
[%g %deal [our our] %hood %poke %kiln-install !>([desk our desk])]
::
++ install-remote ^- move
=/ rem ?:(=(%base desk) %kids desk)
::
:^ hen %pass /dist/install-remote/[desk]
[%g %deal [our our] %hood %poke %kiln-install !>([desk sen rem])]
--
:: ::
++ latest-tako ++ latest-tako
|= =desk |= =desk
@ -1640,6 +1661,8 @@
:: ::
++ did-kernel-update ++ did-kernel-update
|= invalid=(set path) |= invalid=(set path)
?. |(=(%base syd) &(=(%home syd) !dist-upgraded.ruf))
|
%- ~(any in invalid) %- ~(any in invalid)
|=(p=path &((is-kernel-path p) !?=([%sys %vane *] p))) |=(p=path &((is-kernel-path p) !?=([%sys %vane *] p)))
:: +get-kelvin: read the desk's kernel version from /sys/kelvin :: +get-kelvin: read the desk's kernel version from /sys/kelvin