metadata-store: actually fix it, strongly type the action sent to %pull-hook to prevent moronic errors
:: /app-name/%app-name associations for app
:: /group/%path associations for group
::
-/- store=metadata-store
+/- store=metadata-store, pull-hook
/+ default-agent, verb, dbug, resource, *migrate
|%
+$ card card:agent:gall
+$ state-7 [%7 base-state-2]
+$ state-8 [%8 base-state-3]
+$ state-9 [%9 base-state-3]
++$ state-10 [%10 base-state-3]
+$ versioned-state
$% state-0
state-1
state-7
state-8
state-9
+ state-10
==
::
+$ inflated-state
- $: state-9
+ $: state-10
cached-indices
==
--
=| cards=(list card)
|^
=* loop $
- ?: ?=(%9 -.old)
+ ?: ?=(%10 -.old)
:- cards
%_ state
associations associations.old
group-indices (rebuild-group-indices associations.old)
app-indices (rebuild-app-indices associations.old)
==
- ?: ?=(%8 -.old)
+ ?: ?=(%9 -.old)
=/ groups
(fall (~(get by (rebuild-app-indices associations.old)) %groups) ~)
=/ pokes=(list card)
=* res resource.u.u.feed.config.met
=- `[%pass /fix-feed %agent [our.bowl %graph-pull-hook] %poke -]
:- %pull-hook-action
- !> [%add entity.res name.res]
+ !> ^- action:pull-hook
+ [%add entity.res res]
%_ $
cards (weld cards pokes)
- -.old %9
+ -.old %10
==
+ ?: ?=(%8 -.old)
+ $(-.old %9)
?: ?=(%7 -.old)
$(old [%8 (associations-2-to-3 associations.old) ~])
?: ?=(%6 -.old)
