group-pull-hook: disabling remove on nack
++ on-pull-nack
|= [=resource =tang]
^- (quip card _this)
- %- (slog tang)
- :_ this
- =- [%pass / %agent [our.bowl %group-store] %poke -]~
- group-update-0+!>([%remove-group resource ~])
+ `this
::
++ on-pull-kick
|= =resource
