urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-15 12:43:31 +03:00
Code Issues Packages Projects Releases Wiki Activity

fixes :dns retry duration calculation

Browse Source
This commit is contained in:
Joe Bryan 2019-01-13 12:43:54 -05:00
parent dd1bf1c5e9
commit a55c044848
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
app/dns.hoon
View File

@ -645,15 +645,15 @@
:: ::
[%confirm ~] [%confirm ~]
=. try +(try) =. try +(try)
(emit (wait (http-wire try /confirm) (max ~h1 (backoff try)))) (emit (wait (http-wire try /confirm) (min ~h1 (backoff try))))
:: ::
[%create @ %for @ ~] [%create @ %for @ ~]
=. try +(try) =. try +(try)
(emit (wait (http-wire try t.t.wire) (max ~h1 (backoff try)))) (emit (wait (http-wire try t.t.wire) (min ~h1 (backoff try))))
:: ::
[%update @ ~] [%update @ ~]
=. try +(try) =. try +(try)
(emit (wait (http-wire try t.t.wire) (max ~h1 (backoff try)))) (emit (wait (http-wire try t.t.wire) (min ~h1 (backoff try))))
== ==
:: +http-response: handle http response :: +http-response: handle http response
:: ::
@ -703,7 +703,7 @@
=/ =tang [(sell !>(rep)) ~] =/ =tang [(sell !>(rep)) ~]
(emit (notify our.bow 'failed to retrieve bindings' tang)) (emit (notify our.bow 'failed to retrieve bindings' tang))
=. try +(try) =. try +(try)
(emit (wait (http-wire try t.t.wire) (max ~h1 (backoff try)))) (emit (wait (http-wire try t.t.wire) (min ~h1 (backoff try))))
?~ r.rep ?~ r.rep
this this
(restore u.r.rep) (restore u.r.rep)
@ -879,11 +879,11 @@
:: ::
%check-before %check-before
=. try +(try) =. try +(try)
(emit (wait (http-wire try %check-before) (max ~h1 (backoff try)))) (emit (wait (http-wire try %check-before) (min ~h1 (backoff try))))
:: ::
%check-after %check-after
=. try +(try) =. try +(try)
(emit (wait (http-wire try %check-after) (max ~h1 (backoff try)))) (emit (wait (http-wire try %check-after) (min ~h1 (backoff try))))
== ==
:: +http-response: handle http response :: +http-response: handle http response
:: ::
@ -903,7 +903,7 @@
?: (gth try 10) ?: (gth try 10)
(fail %check-before [(sell !>(rep)) ~]) (fail %check-before [(sell !>(rep)) ~])
=. try +(try) =. try +(try)
(emit (wait (http-wire try %check-before) (max ~h1 (backoff try)))) (emit (wait (http-wire try %check-before) (min ~h1 (backoff try))))
:: validating an established binding :: validating an established binding
:: ::
%check-after %check-after
@ -913,7 +913,7 @@
:: XX notify after some number of failures :: XX notify after some number of failures
:: ::
=. try +(try) =. try +(try)
(emit (wait (http-wire try %check-after) (max ~h1 (backoff try)))) (emit (wait (http-wire try %check-after) (min ~h1 (backoff try))))
== ==
:: +retry: re-attempt http request after timer :: +retry: re-attempt http request after timer
:: ::