kiln: |install to a new upstream less destructively

pkg/arvo/lib/hood/kiln.hoon

@@ -415,14 +415,15 @@
     ?:  =(`[her rem] got)
       ~>  %slog.0^leaf/"kiln: already tracking {here:(abed lac)}, ignoring"
       vats
-    =?  kiln  ?=(^ got)  (uninstall lac)
     =:  loc  lac
-        rak  [[paused=| her rem *aeon] next=~ *rein]
+        rak  [[paused=| her rem *aeon] next=~ rein:(fall got *arak)]
       ==
     ~>  %slog.0^leaf/"kiln: beginning install into {here}"
     (emit find:pass)
   ::  +reset: resync after failure
   ::
+  ::    TODO: don't blow away so much state
+  ::
   ++  reset
     ^+  vats
     ~>  %slog.0^leaf/"kiln: resetting tracking for {here}"
@@ -691,7 +692,7 @@
       (update-running-apps (get-apps-diff our loc now rein.rak))
     ?.  =(%base loc)
       vats
-    ~>  %slog.0^leaf/"kiln: bumping {<zuse>}"
+    ~>  %slog.0^leaf/"kiln: bumping {<zuse>}"  ::  TODO print next
     (emit merge-kids:pass)
   ::
   ++  take-merge-kids

pkg/base-dev/sur/hood.hoon

@@ -70,14 +70,16 @@
       leaf/"pending: {<(turn next.arak |=([@ lal=@tas num=@] [lal num]))>}"
   ^-  tang
   =/  meb  (mergebase-hashes our desk now arak)
+  =/  poz  ?:(paused.rail.arak "paused" "tracking")
   =/  sat  ?:(liv.rein.arak "running" "suspended")
   :~  leaf/"/sys/kelvin:  {<[lal num]:weft>}"
       leaf/"base hash:    {?.(=(1 (lent meb)) <meb> <(head meb)>)}"
       leaf/"%cz hash:     {<hash>}"
+      leaf/"updates:      {sat}"
       leaf/"source ship:  {<ship.rail.arak>}"
       leaf/"source desk:  {<desk.rail.arak>}"
       leaf/"source aeon:  {<aeon.rail.arak>}"
-      leaf/"status:      {sat}"
+      leaf/"agent status: {sat}"
       leaf/"force on:     {?:(=(~ add.rein.arak) "~" <add.rein.arak>)}"
       leaf/"force off:    {?:(=(~ sub.rein.arak) "~" <sub.rein.arak>)}"
   ==