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

docket: always %leave previous fetch-glob

Browse Source 
This just no-ops if it doesn't exist. If it does, we avoid the
duplicate-subscription-wire problem.
This commit is contained in:
Fang 2021-09-28 20:52:19 +04:00
parent 526e60b04c
commit 8c368e639e
No known key found for this signature in database
GPG Key ID: EB035760C1BBA972
1 changed files with 3 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
pkg/garden/app/docket.hoon
View File

@ -299,7 +299,7 @@
%- (slog leaf+"docket: thread cancelled; retrying" leaf+<term> tang) %- (slog leaf+"docket: thread cancelled; retrying" leaf+<term> tang)
=. charges (new-chad:cha %install ~) =. charges (new-chad:cha %install ~)
:_ state :_ state
[leave-glob:cha add-fact:cha fetch-glob:cha] [add-fact:cha fetch-glob:cha]
:: ::
%thread-done %thread-done
=+ !<(=glob q.cage.sign) =+ !<(=glob q.cage.sign)
@ -626,14 +626,6 @@
%+ ~(put by charges) desk %+ ~(put by charges) desk
[d chad:(~(gut by charges) desk *charge)] [d chad:(~(gut by charges) desk *charge)]
++ new-chad |=(c=chad (~(jab by charges) desk |=(charge +<(chad c)))) ++ new-chad |=(c=chad (~(jab by charges) desk |=(charge +<(chad c))))
++ leave-glob
^- card
=/ =charge
~| desk/desk
(~(got by charges) desk)
?> ?=(%glob -.href.docket.charge)
=/ ref glob-reference.href.docket.charge
(leave-our:(pass (glob-wire ref)) %spider)
++ fetch-glob ++ fetch-glob
^- (list card) ^- (list card)
=/ =charge =/ =charge
@ -651,7 +643,8 @@
=/ =cage =/ =cage
:- %spider-start :- %spider-start
!>([~ `tid byk.bowl(r da+now.bowl) %glob !>(`[ref desk])]) !>([~ `tid byk.bowl(r da+now.bowl) %glob !>(`[ref desk])])
:~ (watch-our:(pass (glob-wire ref)) %spider /thread-result/[tid]) :~ (leave-our:(pass (glob-wire ref)) %spider)
(watch-our:(pass (glob-wire ref)) %spider /thread-result/[tid])
(poke-our:(pass (glob-wire ref)) %spider cage) (poke-our:(pass (glob-wire ref)) %spider cage)
== ==
++ docket-loc `path`/desk/docket-0 ++ docket-loc `path`/desk/docket-0