kiln: minor print cleanup

This commit is contained in:
Ted Blackman 2021-09-26 15:32:27 -04:00
parent 665be9709d
commit 54e7f31d25

View File

@ -644,17 +644,17 @@
++ bump-one ++ bump-one
|= [kel=weft =desk] |= [kel=weft =desk]
^+ kiln ^+ kiln
~> %slog.(fmt "bump {<desk>} to {<[- +]:kel>}") ~> %slog.(fmt "bump {<desk>} to {<[lal num]:kel>}")
=< abet ^+ vats =< abet ^+ vats
=. vats (abed desk) =. vats (abed desk)
?: =([~ kel] (read-kelvin-local our desk now)) ?: =([~ kel] (read-kelvin-local our desk now))
~> %slog.(fmt "{here} already at {<[- +]:kel>}") ~> %slog.(fmt "{here} already at {<[lal num]:kel>}")
update-running-apps update-running-apps
=^ tem rail.rak (crank-next %| kel) =^ tem rail.rak (crank-next %| kel)
?^ tem ?^ tem
(emit merge-main:pass) (emit merge-main:pass)
=- (emit (pyre:pass leaf/- ~)) =- (emit (pyre:pass leaf/- ~))
"kiln: {here} killed upgrade to {<[- +]:kel>}" "kiln: {here} killed upgrade to {<[lal num]:kel>}"
:: +stop-agents: internal helper to suspend agents on .loc :: +stop-agents: internal helper to suspend agents on .loc
:: ::
:: Will not shut down %hood or %dojo. :: Will not shut down %hood or %dojo.