ted-restore-metadata.hoon

/-  spider
/+  strandio
/+  resource
=,  strand=strand:spider
^-  thread:spider
|=  arg=vase
=/  m  (strand ,vase)
^-  form:m
;<  =bowl:spider  bind:m  get-bowl:strandio
=/  groups=(list resource)
  %+  turn
    ~(tap in ~(key by dir:.^(arch %gy /(scot %p our.bowl)/group-store/(scot %da now.bowl)/groups)))
  |=(p=@ta (de-path:resource (stab p)))
|-
=*  loop  $
?~  groups
  (pure:m !>("Done!"))
;<  ~  bind:m
  %+  poke-our:strandio
    %metadata-hook
  =/  =path
    (en-path:resource i.groups)
  :-  %metadata-hook-action
  !>
  ?:  =(our.bowl entity.i.groups)
    [%add-owned path]
  [%add-synced entity.i.groups path]
loop(groups t.groups)