clay: more printing adjustment

This commit is contained in:
Ted Blackman 2021-07-19 14:01:34 +03:00
parent 05d0f0a6eb
commit 4f5739879e

View File

@ -1018,7 +1018,7 @@
^- path ^- path
=/ paz (segments pax) =/ paz (segments pax)
|- ^- path |- ^- path
?~ paz ~_(leaf/"clay: no files match /{<pre>}/{<pax>}/hoon" !!) ?~ paz ~_(leaf/"clay: no files match /{(trip pre)}/{(trip pax)}/hoon" !!)
=/ pux=path pre^(snoc i.paz %hoon) =/ pux=path pre^(snoc i.paz %hoon)
?: (~(has in deletes) pux) ?: (~(has in deletes) pux)
$(paz t.paz) $(paz t.paz)
@ -1696,8 +1696,6 @@
%+ turn (tail (spud pux)) :: lose leading '/' %+ turn (tail (spud pux)) :: lose leading '/'
|=(c=@tD `@tD`?:(=('/' c) '-' c)) :: convert '/' to '-' |=(c=@tD `@tD`?:(=('/' c) '-' c)) :: convert '/' to '-'
:: ::
~> %slog.0^leaf/"ford: {<~(wyt in invalid)>} cache invalidations"
::
:* ((invalidate path vase) files.ford-cache invalid) :* ((invalidate path vase) files.ford-cache invalid)
((invalidate mark vase) naves.ford-cache invalid) ((invalidate mark vase) naves.ford-cache invalid)
((invalidate mark dais) marks.ford-cache invalid) ((invalidate mark dais) marks.ford-cache invalid)