From 69704c6a8050bf67d96b6ad8731140463345c220 Mon Sep 17 00:00:00 2001
From: fang <git@fang.io>
Date: Wed, 6 Jan 2021 23:12:01 +0100
Subject: [PATCH] graph: make the join thread back off

Pushes the pathological case back a bit, but doesn't make it stop trying.
---
 pkg/arvo/ted/graph/join.hoon | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/pkg/arvo/ted/graph/join.hoon b/pkg/arvo/ted/graph/join.hoon
index 5837409ae5..dbeb6f1698 100644
--- a/pkg/arvo/ted/graph/join.hoon
+++ b/pkg/arvo/ted/graph/join.hoon
@@ -29,13 +29,15 @@
   ^-  form:m
   =/  pax
     (en-path:resource rid)
+  =/  hold=@dr  ~s0..8000
   |-  ^-  form:m
   =*  loop  $
   ;<  u-group=(unit group)  bind:m  
     (scry:strandio ,(unit group) (weld /gx/group-store/groups (snoc pax %noun)))
   ?^  u-group
     (pure:m ~)
-  ;<  ~  bind:m  (sleep:strandio `@dr`(div ~s1 2))
+  ;<  ~  bind:m  (sleep:strandio hold)
+  =.  hold  (min (mul hold 2) ~m5)
   loop
 ::
 ++  wait-for-md
@@ -44,13 +46,15 @@
   ^-  form:m
   =/  pax
     (en-path:resource rid)
+  =/  hold=@dr  ~s0..8000
   |-  ^-  form:m
   =*  loop  $
   ;<  groups=(set path)  bind:m  
     (scry:strandio ,(set path) /gy/metadata-store/group-indices) 
   ?:  (~(has in groups) pax)
     (pure:m ~)
-  ;<  ~  bind:m  (sleep:strandio `@dr`(div ~s1 2))
+  ;<  ~  bind:m  (sleep:strandio hold)
+  =.  hold  (min (mul hold 2) ~m5)
   loop
 --
 ::