observe-hook: add %group-on-leave back to observers

This commit is contained in:
Logan Allen 2020-12-10 13:55:14 -06:00
parent b281b9c91f
commit fe728fea35
2 changed files with 4 additions and 1 deletions

View File

@ -64,6 +64,9 @@
=| cards=(list card)
|-
?: ?=(%2 -.old-state)
=. cards
:_ cards
(act [%watch %group-store /groups %group-on-leave])
[cards this(state old-state)]
?: ?=(%1 -.old-state)
=. cards

View File

@ -486,7 +486,7 @@
++ thread-fail
|= [=yarn =term =tang]
^- (quip card ^state)
%- (slog leaf+"strand {<yarn>} failed" leaf+<term> tang)
::%- (slog leaf+"strand {<yarn>} failed" leaf+<term> tang)
=/ =tid (yarn-to-tid yarn)
=/ fail-cards (thread-say-fail tid term tang)
=^ cards state (thread-clean yarn)