diff --git a/pkg/landscape/app/graph-store.hoon b/pkg/landscape/app/graph-store.hoon index fe7a5d1e3..45832db08 100644 --- a/pkg/landscape/app/graph-store.hoon +++ b/pkg/landscape/app/graph-store.hoon @@ -12,6 +12,7 @@ [%4 network:store] [%5 network:store] [%6 network:store] + state-7 == ::- +$ state-7 [%7 network:store] @@ -20,7 +21,7 @@ ++ mar %graph-update-3 -- :: -=| state-6 +=| state-7 =* state - :: %- agent:dbug @@ -104,12 +105,16 @@ ;: welp cards :: + (nuke-groups:upgrade:store bowl) + :: + ^- (list card) %+ turn ~(tap by archive.old) |= [r=resource:store m=marked-graph:store] ^- card - =/ pax /(rap 3 'archive-'(scot %p entity.r) '-' name.r)/noun + =/ pax /(rap 3 'archive-' (scot %p entity.r) '-' name.r ~)/noun =/ =cage drum-put+!>([pax (jam m)]) [%pass /archive %agent [our.bowl %hood] %poke cage] + == == :: %7 [cards this(state old)] diff --git a/pkg/landscape/lib/graph-store.hoon b/pkg/landscape/lib/graph-store.hoon index df11d0349..4fb283748 100644 --- a/pkg/landscape/lib/graph-store.hoon +++ b/pkg/landscape/lib/graph-store.hoon @@ -528,6 +528,21 @@ :: ++ upgrade |% + ++ nuke-groups + |= =bowl:gall + |^ ^- (list card:agent:gall) + ?. .^(? (gall-scry %u %groups)) + ~ + =+ .^(=desk (gall-scry %d %groups)) + :~ [%pass /nuke %agent [our.bowl %hood] %poke kiln-nuke+!>([desk &])] + [%pass /nuke %agent [our.bowl %hood] %poke kiln-uninstall+!>(desk)] + == + :: + ++ gall-scry + |= [=care:clay dap=dude:gall] + ^- path + /(cat 3 %g care)/(scot %p our.bowl)/[dap]/(scot %da now.bowl) + -- :: :: +two :: @@ -758,9 +773,9 @@ -- ++ import |= [arc=* our=ship] - ^- (quip card:agent:gall [%6 network]) + ^- (quip card:agent:gall [%7 network]) |^ - =/ sty [%6 (remake-network ;;(tree-network +.arc))] + =/ sty [%7 (remake-network ;;(tree-network +.arc))] :_ sty %+ turn ~(tap by graphs.sty) |= [rid=resource =marked-graph]