From df5cdeafadb0cce31546042d1761fa79287208ba Mon Sep 17 00:00:00 2001 From: Joe Bryan Date: Wed, 14 Jun 2023 16:23:03 -0400 Subject: [PATCH 1/2] vats: correct deprecated %cd scry --- pkg/arvo/gen/vats.hoon | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pkg/arvo/gen/vats.hoon b/pkg/arvo/gen/vats.hoon index 51e0059065..9070109786 100644 --- a/pkg/arvo/gen/vats.hoon +++ b/pkg/arvo/gen/vats.hoon @@ -22,7 +22,7 @@ %- zing %+ turn %+ sort - =/ sed .^((set desk) %cd /(scot %p p.bec)/base/(scot %da now)) + =/ sed .^((set desk) %cd /(scot %p p.bec)//(scot %da now)) (sort ~(tap in sed) |=([a=@ b=@] !(aor a b))) |=([a=desk b=desk] ?|(=(a %kids) =(b %base))) |=(syd=desk (report-vat (report-prep p.bec now) p.bec now syd verb)) From edebd0b6d360e70c67ff7f081ae6f6472e95cc06 Mon Sep 17 00:00:00 2001 From: Joe Bryan Date: Wed, 14 Jun 2023 16:25:08 -0400 Subject: [PATCH 2/2] vats: add source ship, remove base hash from default output --- pkg/base-dev/sur/hood.hoon | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) diff --git a/pkg/base-dev/sur/hood.hoon b/pkg/base-dev/sur/hood.hoon index 3c53210056..5c736f2714 100644 --- a/pkg/base-dev/sur/hood.hoon +++ b/pkg/base-dev/sur/hood.hoon @@ -159,16 +159,10 @@ |= [=weft =tape] (welp " {<[lal num]:weft>}" tape) ?. verb - =/ cut=(list tape) (turn meb truncate-hash) - =/ len (lent cut) - =/ base-hash - ?: =(0 len) "~" - ?: =(1 len) (head cut) - "~[{`tape`(zing (join " " `(list tape)`cut))}]" :~ leaf/"/sys/kelvin: {kul}" - leaf/"base hash ends in: {base-hash}" leaf/"%cz hash ends in: {(truncate-hash hash)}" leaf/"app status: {sat}" + leaf/"source ship: {?~(sink <~> )}" leaf/"pending updates: {<`(list [@tas @ud])`~(tap in wic.dek)>}" == ::