metadata-store: drop dm associations
+$ state-8 [%8 base-state-3]
+$ state-9 [%9 base-state-3]
+$ state-10 [%10 base-state-3]
++$ state-11 [%11 base-state-3]
+$ versioned-state
$% state-0
state-1
state-8
state-9
state-10
+ state-11
==
::
+$ inflated-state
- $: state-10
+ $: state-11
cached-indices
==
--
=| cards=(list card)
|^
=* loop $
- ?: ?=(%10 -.old)
+ ?: ?=(%11 -.old)
:- cards
%_ state
associations associations.old
group-indices (rebuild-group-indices associations.old)
app-indices (rebuild-app-indices associations.old)
==
+ ?: ?=(%10 -.old)
+ $(-.old %11, associations.old (strip-dm-assoc associations.old))
?: ?=(%9 -.old)
=/ groups
(fall (~(get by (rebuild-app-indices associations.old)) %groups) ~)
:: pre-breach, can safely throw away
loop(old *state-8)
::
+ ++ strip-dm-assoc
+ |= assoc=associations:store
+ ^- associations:store
+ %- ~(gas by *associations:store)
+ %+ murn ~(tap by assoc)
+ |= [m=md-resource:store [g=resource met=metadatum:store]]
+ ^- (unit [md-resource:store association:store])
+ ?. ?=(%graph app-name.m) `[m [g met]]
+ ?^ (rush name.resource.m ;~(pfix (jest 'dm--') fed:ag)) ~
+ `[m [g met]]
+ ::
++ associations-2-to-3
|= assoc=associations-2
^- associations:store
