contacts: refactor activity

tloncorp · Nov 20, 2024 · e3ae47d · e3ae47d
1 parent ded2e68
commit e3ae47d
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 385 deletions.
diff --git a/desk/app/contacts.hoon b/desk/app/contacts.hoon
@@ -1,4 +1,5 @@
-/+  default-agent, dbug, verb, neg=negotiate, activity
+/-  activity
+/+  default-agent, dbug, verb, neg=negotiate
 /+  *contacts
 ::
 ::  performance, keep warm
@@ -103,7 +104,7 @@
   ++  pass-activity
     |=  [who=ship field=(pair @tas value)]
     ^-  card
-    =/  =cage  activity-action+!>([%add %contact who field])
+    =/  =cage  activity-action+!>(`action:activity`[%add %contact who field])
     [%pass /activity %agent [our.bowl %activity] %poke cage]
   ::
   ::  +pub: publication management
@@ -772,17 +773,17 @@
         [%contact ~]
       si-abet:(si-take:(sub src.bowl) wire sign)
       ::
-          [%migrate ~]
-        ?>  ?=(%poke-ack -.sign)
-        ?~  p.sign  cor
-        %-  (slog leaf/"{<wire>} failed" u.p.sign)
+        [%migrate ~]
+      ?>  ?=(%poke-ack -.sign)
+      ?~  p.sign  cor
+      %-  (slog leaf/"{<wire>} failed" u.p.sign)
       cor
       ::
-          [%activity ~]
-        cor
+        [%activity ~]
+      cor
       ::
-          [%epic ~]
-        cor
+        [%epic ~]
+      cor
     ==
   ::
   ++  arvo