graph-store: nuke groups desk and uninstall

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)]

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]