urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-11-28 13:54:20 +03:00
Code Issues Packages Projects Releases Wiki Activity

group-pull-hook: remove group on nack

Browse Source
This commit is contained in:
Liam Fitzgerald 2020-12-11 14:57:20 +10:00
parent 191b623d47
commit bce1b3e65e
No known key found for this signature in database
GPG Key ID: D390E12C61D1CFFB
3 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkg/arvo/app/graph-store.hoon
View File

@ -281,7 +281,7 @@
(~(put in validators) u.mark)
==
%- zing
:~ (give [/keys ~] %keys ~(key by graphs))
:~ (give [/keys ~] %keys (~(put in ~(key by graphs)) resource))
(give [/updates ~] %add-graph resource *graph:store mark overwrite)
clay-backup
?~ mark ~

4
pkg/arvo/app/group-pull-hook.hoon
View File

@ -42,7 +42,9 @@
++ on-pull-nack
|= [=resource =tang]
^- (quip card _this)
[~ this]
:_ this
=- [%pass / %agent [our.bowl %group-store] %poke -]~
group-update+!>([%remove-group resource ~])
++ on-pull-kick
|= =resource
^- (unit path)

4
pkg/arvo/ted/graph/leave.hoon
View File

@ -68,9 +68,9 @@
!> :+ %remove
(en-path:resource rid.action)
[%graph (en-path:resource rid.action)]
;< ~ bind:m
(poke-our %group-pull-hook %pull-hook-action !>([%remove rid.action]))
;< ~ bind:m
(poke-our %group-store %group-action !>([%remove-group rid.action ~]))
;< ~ bind:m
(poke-our %group-pull-hook %pull-hook-action !>([%remove rid.action]))
;< ~ bind:m (delete-graph now.bowl rid.action)
(pure:m !>(~))