groups: refactor ota

pkg/arvo/app/chat-hook.hoon

@@ -98,11 +98,13 @@
           [crds old]
         =/  [pax=path =ship]
           i.syncs
+        ?>  ?=(^ pax)
+        ?.  =('~' i.pax)
+          $(syncs t.syncs) 
+        =/  new-path=path
+          t.pax
         =.  synced.old
           (~(del by synced.old) pax)
-        =/  new-path=path
-          ?>  ?=(^ pax)
-          ?:(=('~' i.pax) t.pax pax)
         ?.  =(ship our.bol)
           =.  synced.old
             (~(put by synced.old) new-path ship)

pkg/arvo/app/group-hook.hoon

@@ -50,11 +50,15 @@
       %0
     :_  this(state *state-one)
     |^
-    %+  turn
+    %+  murn
       ~(tap by synced.old)
     |=  [=path host=ship]
-    ^-  card
+    ^-  (unit card)
     ?>  ?=([@ @ *] path)
+    :: ignore duplicate publish groups
+    ?:  =(4 (lent path))
+      ~&  "ignoring: {<path>}"
+      ~ 
     =/  pax=^path
       ?:  =('~' i.path)
         t.path
@@ -65,8 +69,8 @@
         (slav %p i.pax)
       [ship i.t.pax]
     ?:  =(our.bowl host)
-      (add-push rid)
+      `(add-push rid)
-    (add-pull rid host)
+    `(add-pull rid host)
     ::
     ++  poke-our
       |=  [app=term =cage]

pkg/arvo/app/hood.hoon

@@ -10,6 +10,7 @@
 +$  any-state
   $%  state
       [ver=?(%1 %2 %3 %4 %5 %6) lac=(map @tas fin-any-state)]
+      [%7 drum=state:drum helm=state:helm kiln=state:kiln]
   ==
 +$  any-state-tuple
   $:  drum=any-state:drum

pkg/arvo/lib/pull-hook.hoon

@@ -224,6 +224,7 @@
     ==
     ++  add
       |=  [=ship =resource]
+      ~|  resource
       ?<  (~(has by tracking) resource)
       =.  tracking
         (~(put by tracking) resource ship)