From 201c3db19300255e481e3a846b0e4c70554094b9 Mon Sep 17 00:00:00 2001
From: raghu <{ID}+{username}@users.noreply.github.com>
Date: Sat, 24 Apr 2021 20:50:50 -0400
Subject: [PATCH] clay: finalize fuse request - update |fuse

---
 pkg/arvo/gen/hood/fuse.hoon |  4 ++--
 pkg/arvo/lib/hood/kiln.hoon |  5 +++--
 pkg/arvo/sys/lull.hoon      |  4 ++--
 pkg/arvo/sys/vane/clay.hoon | 30 ++++++++----------------------
 4 files changed, 15 insertions(+), 28 deletions(-)

diff --git a/pkg/arvo/gen/hood/fuse.hoon b/pkg/arvo/gen/hood/fuse.hoon
index 39bf9f74c..03effe5c8 100644
--- a/pkg/arvo/gen/hood/fuse.hoon
+++ b/pkg/arvo/gen/hood/fuse.hoon
@@ -8,5 +8,5 @@
 ::::
   ::
 :-  %say
-|=  [[now=@da eny=@uvJ bec=beak] [des=desk srcs=(list [beak germ]) ~] ~]
-[%kiln-fuse des srcs]
+|=  [[now=@da eny=@uvJ bec=beak] [des=desk bas=beak con=(list [beak germ]) ~] ~]
+[%kiln-fuse des bas con]
diff --git a/pkg/arvo/lib/hood/kiln.hoon b/pkg/arvo/lib/hood/kiln.hoon
index 167750360..8700670bc 100644
--- a/pkg/arvo/lib/hood/kiln.hoon
+++ b/pkg/arvo/lib/hood/kiln.hoon
@@ -57,7 +57,8 @@
   ==
 +$  kiln-fuse
   $:  syd=desk
-      srcs=(list [beak germ])
+      bas=beak
+      con=(list [beak germ])
   ==
 --
 |=  [bowl:gall state]
@@ -387,7 +388,7 @@
 ::
 ++  poke-fuse
   |=  k=kiln-fuse
-  abet:(emit [%pass /kiln/fuse/[syd.k] %arvo %c [%fuse syd.k srcs.k]])
+  abet:(emit [%pass /kiln/fuse/[syd.k] %arvo %c [%fuse syd.k bas.k con.k]])
 ::
 ++  poke-cancel
   |=  a=@tas
diff --git a/pkg/arvo/sys/lull.hoon b/pkg/arvo/sys/lull.hoon
index bc8c55287..1cac3043b 100644
--- a/pkg/arvo/sys/lull.hoon
+++ b/pkg/arvo/sys/lull.hoon
@@ -764,8 +764,8 @@
         ==                                              ::
         $:  %fuse                                       ::  mega merge
             des=desk                                    ::  target desk
-            ful=(list beak)                             ::  source desks
-            gim=(list germ)                             ::  strategies
+            bas=beak                                    ::  base desk
+            con=(list [beak germ])                      ::  merges
         ==
         [%mont pot=term bem=beam]                       ::  mount to unix
         [%dirk des=desk]                                ::  mark mount dirty
diff --git a/pkg/arvo/sys/vane/clay.hoon b/pkg/arvo/sys/vane/clay.hoon
index 5aff31999..086ed0249 100644
--- a/pkg/arvo/sys/vane/clay.hoon
+++ b/pkg/arvo/sys/vane/clay.hoon
@@ -1976,43 +1976,29 @@
     (turn con |=(a=[beak germ] [-.a *(unit dome:clay)]))
   ::
   ++  start-fuse
-    |=  [ful=(list beak) gim=(list germ)]
+    |=  [bas=beak con=(list [beak germ])]
     ^+  ..start-fuse
-    ::  must have n sources and n-1 gems
-    ?>  =((lent ful) +((lent gim)))
     =/  moves=(list move)
         %+  turn
-          ful
-        |=  bec=beak
+          [[bas *germ] con]
+        |=  [bec=beak germ]
         ^-  move
         =/  wir=wire  /fuse/[syd]/(scot %p p.bec)/[q.bec]/(scot r.bec)
         [hen %pass wir %c %warp p.bec q.bec `[%sing %v r.bec /]]
-    ?~  ful
-      !!
-    =/  base=beak  i.ful
-    =/  ful=(list beak)  t.ful
-    =/  con=(list [beak germ])
-        =|  acc=(list [beak germ])
-        |-
-        ?~  ful
-          acc
-        ?~  gim
-          !!
-        $(acc [[i.ful i.gim] acc], ful t.ful, gim t.gim)
     ::  we also want to clear the state (fiz) associated with this
     ::  merge and print a warning if it's non trivial i.e. we're
     ::  starting a new fuse before the previous one terminated.
     ~&  ?~  con.fiz
-          [%starting-fuse base con]
+          [%starting-fuse bas con]
         :*  %starting-fuse
-            base
+            bas
             con
             %discarding-state
             ::  we don't want to ~& an entire dome
             %-  ~(run by sto.fiz)
             |=(v=(unit dome:clay) ?~(v %not-received %recieved))
         ==
-    =.  fiz  (make-melt base con)
+    =.  fiz  (make-melt bas con)
     (emil moves)
   ::
   ++  take-fuse
@@ -4238,7 +4224,7 @@
       ~&(%fuse-no-desk !!)
     =^  mos  ruf
       =/  den  ((de now rof hen ruf) our des.req)
-      abet:(start-fuse:den ful.req gim.req)
+      abet:(start-fuse:den bas.req con.req)
     [mos ..^$]
   ::
       %mont
@@ -4570,7 +4556,7 @@
       abet:(merge:den ali-ship ali-desk germ p.hin)
     [mos ..^$]
   ::
-  ?:  ?=([%fuse @ @ @ @ @ ~] tea)
+  ?:  ?=([%fuse @ @ @ @ ~] tea)
     ?>  ?=(%writ +<.hin)
     =*  syd  i.t.tea
     =/  ali-ship=@p  (slav %p i.t.t.tea)