group-leave: make it safer
|%
++ strand strand:spider
++ poke poke:strandio
-++ poke-our poke-our:strandio
+++ raw-poke-our raw-poke-our:strandio
--
^- thread:spider
|= arg=vase
:- %pull-hook-action
!> ^- action:pull-hook
[%remove rid]
-;< ~ bind:m (poke-our %contact-pull-hook pull-hook-act)
-;< ~ bind:m (poke-our %metadata-pull-hook pull-hook-act)
-;< ~ bind:m (poke-our %group-pull-hook pull-hook-act)
-;< ~ bind:m (poke-our %group-store %group-update-0 !>([%remove-group rid ~]))
+;< ~ bind:m (raw-poke-our %contact-pull-hook pull-hook-act)
+;< ~ bind:m (raw-poke-our %metadata-pull-hook pull-hook-act)
+;< ~ bind:m (raw-poke-our %group-pull-hook pull-hook-act)
+;< ~ bind:m (raw-poke-our %group-store %group-update-0 !>([%remove-group rid ~]))
;< ~ bind:m (cleanup-md:view rid)
(pure:m !>(~))
