mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-13 11:45:45 +03:00
Merge pull request #4120 from urbit/la/fix-leave
group-on-leave: soften de-path to fix thread and add thread back to observe-hook state
This commit is contained in:
commit
d2f467912e
@ -64,6 +64,9 @@
|
|||||||
=| cards=(list card)
|
=| cards=(list card)
|
||||||
|-
|
|-
|
||||||
?: ?=(%2 -.old-state)
|
?: ?=(%2 -.old-state)
|
||||||
|
=. cards
|
||||||
|
:_ cards
|
||||||
|
(act [%watch %group-store /groups %group-on-leave])
|
||||||
[cards this(state old-state)]
|
[cards this(state old-state)]
|
||||||
?: ?=(%1 -.old-state)
|
?: ?=(%1 -.old-state)
|
||||||
=. cards
|
=. cards
|
||||||
|
@ -486,7 +486,7 @@
|
|||||||
++ thread-fail
|
++ thread-fail
|
||||||
|= [=yarn =term =tang]
|
|= [=yarn =term =tang]
|
||||||
^- (quip card ^state)
|
^- (quip card ^state)
|
||||||
:: %- (slog leaf+"strand {<yarn>} failed" leaf+<term> tang)
|
::%- (slog leaf+"strand {<yarn>} failed" leaf+<term> tang)
|
||||||
=/ =tid (yarn-to-tid yarn)
|
=/ =tid (yarn-to-tid yarn)
|
||||||
=/ fail-cards (thread-say-fail tid term tang)
|
=/ fail-cards (thread-say-fail tid term tang)
|
||||||
=^ cards state (thread-clean yarn)
|
=^ cards state (thread-clean yarn)
|
||||||
|
@ -80,15 +80,18 @@
|
|||||||
[%remove g.i.entries m.i.entries]
|
[%remove g.i.entries m.i.entries]
|
||||||
:: archive graph associated with group
|
:: archive graph associated with group
|
||||||
::
|
::
|
||||||
|
=/ app-resource (de-path-soft:res app-path.m.i.entries)
|
||||||
|
?~ app-resource
|
||||||
|
loop(entries t.entries)
|
||||||
;< ~ bind:m
|
;< ~ bind:m
|
||||||
%+ raw-poke
|
%+ raw-poke
|
||||||
[our.bowl %graph-store]
|
[our.bowl %graph-store]
|
||||||
:- %graph-update
|
:- %graph-update
|
||||||
!> ^- update:gra
|
!> ^- update:gra
|
||||||
[%0 now.bowl [%archive-graph (de-path:res app-path.m.i.entries)]]
|
[%0 now.bowl [%archive-graph u.app-resource]]
|
||||||
;< ~ bind:m
|
;< ~ bind:m
|
||||||
%+ raw-poke
|
%+ raw-poke
|
||||||
[our.bowl %graph-pull-hook]
|
[our.bowl %graph-pull-hook]
|
||||||
:- %pull-hook-action
|
:- %pull-hook-action
|
||||||
!>([%remove (de-path:res app-path.m.i.entries)])
|
!>([%remove u.app-resource])
|
||||||
loop(entries t.entries)
|
loop(entries t.entries)
|
||||||
|
Loading…
Reference in New Issue
Block a user