graph-store: add thread for recovering archives

This commit is contained in:
Liam Fitzgerald 2022-11-24 15:12:21 +10:00
parent d9ae7c307b
commit b76ea6516c

View File

@ -0,0 +1,19 @@
/- spider, graph=graph-store, met=metadata-store, *group, group-store, push-hook
/+ strandio, resource, graph-view
=>
|%
++ strand strand:spider
++ poke poke:strandio
++ poke-our poke-our:strandio
--
=, strand=strand:spider
^- thread:spider
|= arg=vase
=/ m (strand ,vase)
^- form:m
=+ !<([~ pax=path] arg)
;< =bowl:spider bind:m get-bowl:strandio
=+ .^([rid=resource mar=marked-graph:graph] %cx pax)
;< ~ bind:m
(poke-our:strandio %graph-store %graph-update-3 !>([now.bowl %add-graph p.mar q.mar &]))
(pure:m *vase)