better |unlink

lib/drum.hoon

@@ -127,6 +127,7 @@
   ::
 |=  [bowl drum-part]                                  ::  main drum work
 =+  (fall (~(get by bin) ost) (deft-pipe our))
+=*  dev  -
 =>  |%                                                ::  arvo structures
     ++  pear                                          ::  request
       $%  [%sole-action p=sole-action]                ::
@@ -230,7 +231,7 @@
   ?.  se-ably
     =.  .  se-adit
     [(flop moz) +>+>+<+]
-  =.  .  se-adze:se-adit
+  =.  .  se-subze:se-adze:se-adit
   :_  %_(+>+>+<+ bin (~(put by bin) ost `source`+>+<))
   ^-  (list move)
   %+  welp  (flop moz) 
@@ -240,25 +241,46 @@
 ::
 ++  se-ably  (~(has by sup) ost)                      ::  caused by console
 ++  se-adit                                           ::  update servers
-  =+  yar=(~(tap by ray))
+  ^+  .
-  |-  ^+  +>
+  %+  roll  (~(tap in ray))
-  ?~  yar  +>
+  =<  .(con +>)
-  =+  hig=(~(get by fur) q.i.yar) 
+  |=  [wel=well con=_..se-adit]  ^+  con
-  ?:  &(?=(^ hig) |(?=(~ u.hig) =(p.i.yar syd.u.u.hig)))  $(yar t.yar)
+  =.  +>.$  con
-  %=    $
+  =+  hig=(~(get by fur) q.wel) 
-      yar  t.yar
+  ?:  &(?=(^ hig) |(?=(~ u.hig) =(p.wel syd.u.u.hig)))  +>.$
-      +>
+  =.  +>.$  (se-text "activated app {(trip p.wel)}/{(trip q.wel)}")
-    =.  +>.$  (se-text "activated app {(trip p.i.yar)}/{(trip q.i.yar)}")
+  %-  se-emit(fur (~(put by fur) q.wel ~))
-    %-  se-emit(fur (~(put by fur) q.i.yar ~))
+  [ost %conf [%drum p.wel q.wel ~] [our q.wel] %load our p.wel]
-    [ost %conf [%drum p.i.yar q.i.yar ~] [our q.i.yar] %load our p.i.yar]
-  ==
 ::
 ++  se-adze                                           ::  update connections
-  =+  lee=(~(tap by eel))
+  ^+  .
-  |-  ^+  +>
+  %+  roll  (~(tap in eel))
-  ?~  lee  +>
+  =<  .(con +>)
-  ?:  (~(has by fug) i.lee)  $(lee t.lee)
+  |=  [gil=gill con=_.]  ^+  con
-  $(lee t.lee, +> (se-peer i.lee))
+  =.  +>.$  con
+  ?:  (~(has by fug) gil)
+    +>.$
+  (se-peer gil)
+::
+++  se-subze                                          ::  downdate connections
+  =<  .(dev (~(got by bin) ost))
+  =.  bin  (~(put by bin) ost dev)
+  ^+  .
+  %-  ~(rep by bin)
+  =<  .(con +>)
+  |=  [[ost=bone dev=source] con=_.]  ^+  con
+  =+  xeno=se-subze-local:%_(con ost ost, dev dev)
+  xeno(ost ost.con, dev dev.con, bin (~(put by bin) ost dev.xeno))
+::
+++  se-subze-local
+  ^+  .
+  %-  ~(rep by fug)
+  =<  .(con +>)
+  |=  [[gil=gill *] con=_.]  ^+  con
+  =.  +>.$  con
+  ?:  (~(has in eel) gil)
+    +>.$
+  (se-nuke gil)
 ::
 ++  se-aint                                           ::  ignore result
   |=  gyl=gill