Merge pull request #218 from tloncorp/hm/fix-migrated-hark

hark: bad copy from groups
tloncorp · Sep 25, 2023 · 70b9adf · 70b9adf
2 parents e3b2657 + dd897c7
commit 70b9adf
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 9 deletions.
diff --git a/desk/lib/groups-json.hoon b/desk/lib/groups-json.hoon
@@ -16,6 +16,6 @@
   |%
   ++  ship  (se %p)
   ++  flag  (su ;~((glue fas) ;~(pfix sig fed:ag) sym))
-  ++  nest  (su ;~((glue fas) sym ;~(pfix sig fed:ag)))
+  ++  nest  (su ;~((glue fas) sym ;~(pfix sig fed:ag) sym))
   --
 --
diff --git a/desk/lib/hark-json.hoon b/desk/lib/hark-json.hoon
@@ -153,19 +153,18 @@
 ++  dejs
   =,  dejs:format
   |%
-  ++  action
-    %-  of
+  ++  action-tags
     :~  saw-seam/seam
         saw-rope/rope
         add-yarn/add-yarn
     ==
+  ++  action
+    ^-  $-(json action:h)
+    (of action-tags)
+  ::
   ++  action-1
-    %-  of
-    :~  saw-seam/seam
-        saw-rope/rope
-        add-yarn/add-yarn
-        new-yarn/new-yarn
-    ==
+    ^-  $-(json action-1:h)
+    (of new-yarn/new-yarn action-tags)
   ::
   ++  seam
     %-  of