diff --git a/lib/ph.hoon b/lib/ph.hoon index ddf3e0921..f7e69df13 100644 --- a/lib/ph.hoon +++ b/lib/ph.hoon @@ -330,7 +330,7 @@ :: :~ ?. %^ is-dojo-output her who :- uf - "+ /{(scow %p her)}/base/2/web/testing/udon" + "clay: committed initial filesystem (all)" ~ [%test-done &]~ :: diff --git a/sys/vane/clay.hoon b/sys/vane/clay.hoon index 03e20b164..85cbf5e9a 100644 --- a/sys/vane/clay.hoon +++ b/sys/vane/clay.hoon @@ -341,8 +341,11 @@ {$warp p/ship q/riff} :: {$werp p/ship q/ship r/riff} :: == == :: - $: $d :: - $% {$flog p/{$crud p/@tas q/(list tank)}} :: to %dill + $: $d :: to %dill + $% $: $flog :: + $% {$crud p/@tas q/(list tank)} :: + {$text p/tape} :: + == == :: == == :: $: $f :: $% [%build live=? schematic=schematic:ford] :: @@ -1083,6 +1086,17 @@ ++ print-changes |= {wen/@da lem/nuri} ^+ +> + :: skip full change output for initial filesystem + :: + ?: ?& =(%base syd) + |(=(1 let.dom) =(2 let.dom)) + == + =/ msg=tape + %+ weld + "clay: committed initial filesystem" + ?:(=(1 let.dom) " (hoon)" " (all)") + (emit (need hun) %pass / %d %flog %text msg) + :: =+ pre=`path`~[(scot %p her) syd (scot %ud let.dom)] ?- -.lem %| (print-to-dill '=' %leaf :(weld (trip p.lem) " " (spud pre)))