kiln: prevent unnecessary bumps when reloading
If a desk is suspended/paused/local, then we should exclude it when
bumping in the +on-load, because a suspended/paused/local desk cannot
have a pending commit that would allow it to bump successfully.
==
take-commit:(abed:vats %base)
=? kiln ?=(^ wef)
- =/ except=(set desk) (sy %base %kids ~)
+ =/ except=(set desk)
+ =/ base=(set desk) (sy %base %kids ~)
+ %- ~(gas in base)
+ %+ murn ~(tap by ark.old)
+ |= [loc=desk ark=arak]
+ ^- (unit desk)
+ ?. liv.rein.ark `loc
+ ?~ rail.ark `loc
+ ?: paused.u.rail.ark `loc
+ ~
(bump:vats u.wef except force=%.n)
=. wef ~
abet:kiln
vats
~> %slog.(fmt "{<lac>} pausing updates")
=/ rel ral
- =. rail.rak `rel(paused &, aeon 0)
+ =. rail.rak `rel(paused &, aeon 0, next ~)
vats
::
:: +gall-lyv: watch gall source for reloading
