From 059c2daed397ba177270cb147d739bf93258321e Mon Sep 17 00:00:00 2001 From: Fang Date: Tue, 28 Sep 2021 15:59:36 +0400 Subject: [PATCH] clay: make distribution desks public on-migrate To ensure our sponsees (and other ships) can install from them. --- pkg/arvo/sys/vane/clay.hoon | 23 +++++++++++++++-------- 1 file changed, 15 insertions(+), 8 deletions(-) diff --git a/pkg/arvo/sys/vane/clay.hoon b/pkg/arvo/sys/vane/clay.hoon index 28576e926e..0d133de855 100644 --- a/pkg/arvo/sys/vane/clay.hoon +++ b/pkg/arvo/sys/vane/clay.hoon @@ -306,6 +306,7 @@ %merg :: merge desks %fuse :: merge many %park :: + %perm :: %pork :: %warp :: %werp :: @@ -1611,14 +1612,16 @@ =/ sen (^^sein:title rof our now our) %- lime |^ ^- (list move) - :: - ?: =(sen our) - :~ create-desk - install-local - == - :~ create-desk - install-local - install-remote + =- (murn - same) + ^- (list (unit move)) + :~ `create-desk + `install-local + :: + ?: =(sen our) ~ + `install-remote + :: + ?: =(%base desk) ~ + `publish-desk == :: ++ create-desk ^- move @@ -1627,6 +1630,10 @@ (latest-tako desk) ;;((map path page) (cue (get-tmp-jam desk))) :: + ++ publish-desk ^- move + :^ hen %pass /dist/public/[desk] + [%c %perm desk / %r `[%black ~]] + :: ++ install-local ^- move :^ hen %pass /dist/install-local/[desk] [%g %deal [our our] %hood %poke %kiln-install !>([desk our desk])]