auto: support forks

2025-01-01 00:51:59 +03:00 · 2019-10-31 23:21:10 -07:00 · 2019-10-31 23:21:10 -07:00 · ad4f0c3ea3
commit ad4f0c3ea3
parent 1fe453ee93
1 changed files with 10 additions and 2 deletions
--- a/pkg/arvo/lib/auto.hoon
+++ b/pkg/arvo/lib/auto.hoon
@ -40,8 +40,16 @@
    [p.ty q.ty]~
  ::
      [%fork *]
-    ~|  %find-fork
-    !!  ::  eh, fuse?
+    %=    $
+        ty
+      =/  tines  ~(tap in p.ty)
+      ?~  tines
+        %void
+      |-  ^-  type
+      ?~  t.tines
+        i.tines
+      (~(fuse ut $(tines t.tines)) i.tines)
+    ==
  ::
      [%hint *]  $(ty q.ty)
      [%hold *]  $(ty ~(repo ut ty))