group-store: allow rebuilding
?+ q.vase !!
%migrate poke-migrate:gc
%export poke-export:gc
+ %rebuild poke-rebuild:gc
==
::
?(%group-update-0 %group-action)
::
|_ bol=bowl:gall
+* io ~(. agentio bol)
+++ poke-rebuild
+ ^- (quip card _state)
+ =/ wex ~(tap by wex.bol)
+ |-
+ ?~ wex
+ `state
+ =/ [[=wire =ship =term] [acked=? =(pole knot)]]
+ i.wex
+ ?. ?=([%gladio ship=@ ~] pole)
+ $(wex t.wex)
+ $(wex t.wex, wait (~(put in wait) (slav %p ship.pole)))
+::
++ poke-export
^- (quip card _state)
:_ state
^- card
[%pass /gladio/(scot %p ship) %agent [ship %groups] %watch /init]
::
+
+::
++ backoff-migrate
|= =ship
^- card
