From 2a47b18be71a0adb8d3d59bc2da0118ed63e3916 Mon Sep 17 00:00:00 2001 From: Logan Allen Date: Mon, 30 Nov 2020 16:33:48 -0600 Subject: [PATCH] thread: remove group-leave-metadata --- pkg/arvo/ted/group/leave-metadata.hoon | 69 -------------------------- 1 file changed, 69 deletions(-) delete mode 100644 pkg/arvo/ted/group/leave-metadata.hoon diff --git a/pkg/arvo/ted/group/leave-metadata.hoon b/pkg/arvo/ted/group/leave-metadata.hoon deleted file mode 100644 index bf235b029..000000000 --- a/pkg/arvo/ted/group/leave-metadata.hoon +++ /dev/null @@ -1,69 +0,0 @@ -/- spider, grp=group-store, met=metadata-store, hook=metadata-hook -/+ strandio, res=resource -:: -=* strand strand:spider -=* raw-poke raw-poke:strandio -=* scry scry:strandio -:: -=> -|% -++ remove-metadata - |= entries=(list [g=group-path:met m=md-resource:met]) - ^- form:m - |- ^- form:m - =* loop $ - ?~ entries - (pure:m !>(~)) - ;< ~ bind:m - %+ raw-poke - [our.bowl %metadata-store] - :- %metadata-action - !> ^- metadata-action:met - [%remove g.i.entries m.i.entries] - loop(entries t.entries) -:: -++ archive-graphs - |= graphs=(list path) - |- ^- form:m - =* loop $ - ?~ graphs - (pure:m !>(~)) - ;< ~ bind:m - %+ raw-poke - [our.bowl %graph-store] - :- %graph-update - !> ^- update:gra - [%0 now.bowl [%archive-graph (de-path:res i.graphs)]] - loop(graphs t.graphs) --- -^- thread:spider -|= arg=vase -=/ m (strand ,vase) -^- form:m -=+ !<([=update:grp ~] arg) -?. ?=(%remove-group -.update) - (pure:m !>(~)) -;< =bowl:spider bind:m get-bowl:strandio -;< ~ bind:m - %+ raw-poke - [our.bowl %metadata-hook] - :- %metadata-hook-action - !> ^- metadata-hook-action:hook - [%remove (en-path:res resource.update)] -:: -:: get metadata associated with group and remove it -;< =associations:met bind:m - %+ scry associations:met - ;: weld - /gx/metadata-store/group - (en-path:res resource.update) - /noun - == -;< ~ bind:m - (remove-metadata ~(tap in ~(key by associations))) -=/ graphs=(list path) - %+ turn ~(tap in ~(key by associations)) - |= [g=group-path:met m=md-resource:met] - ^- path - app-path.m -(archive-graphs graphs)