ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2025-01-07 07:30:23 +03:00
Code Issues Packages Projects Releases Wiki Activity

graph-leave: fixed leave thread to function properly

Browse Source
This commit is contained in:
Logan Allen 2020-10-16 12:10:07 -05:00
parent ace6a41e9e
commit 926c9975c2
1 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
pkg/arvo/ted/graph/leave.hoon
View File

@ -28,20 +28,20 @@
;< ugroup=(unit group) bind:m ;< ugroup=(unit group) bind:m
%+ scry:strandio ,(unit group) %+ scry:strandio ,(unit group)
;: weld ;: weld
/gx/group-store/resource/graph /gx/group-store/groups
(en-path:resource rid) (en-path:resource rid)
/noun /noun
== ==
(pure:m (need ugroup)) (pure:m (need ugroup))
:: ::
++ delete-graph ++ delete-graph
|= rid=resource |= [now=time rid=resource]
=/ m (strand ,~) =/ m (strand ,~)
^- form:m ^- form:m
;< ~ bind:m ;< ~ bind:m
(poke-our %graph-pull-hook %pull-hook-action !>([%remove rid])) (poke-our %graph-pull-hook %pull-hook-action !>([%remove rid]))
;< ~ bind:m ;< ~ bind:m
(poke-our %graph-store %graph-update !>([%remove-graph rid])) (poke-our %graph-store %graph-update !>([%0 now [%remove-graph rid]]))
(pure:m ~) (pure:m ~)
-- --
:: ::
@ -57,11 +57,20 @@
;< group-rid=resource bind:m (scry-metadata rid.action) ;< group-rid=resource bind:m (scry-metadata rid.action)
;< g=group bind:m (scry-group group-rid) ;< g=group bind:m (scry-group group-rid)
?. hidden.g ?. hidden.g
;< ~ bind:m (delete-graph rid.action) ;< ~ bind:m (delete-graph now.bowl rid.action)
(pure:m !>(~)) (pure:m !>(~))
;< ~ bind:m ;< ~ bind:m
(poke-our %group-push-hook %pull-hook-action !>([%remove rid.action])) %+ poke-our %metadata-hook
metadata-hook-action+!>([%remove (en-path:resource rid.action)])
;< ~ bind:m
%+ poke-our %metadata-store
:- %metadata-action
!> :+ %remove
(en-path:resource rid.action)
[%graph (en-path:resource rid.action)]
;< ~ bind:m
(poke-our %group-pull-hook %pull-hook-action !>([%remove rid.action]))
;< ~ bind:m ;< ~ bind:m
(poke-our %group-store %group-action !>([%remove-group rid.action ~])) (poke-our %group-store %group-action !>([%remove-group rid.action ~]))
;< ~ bind:m (delete-graph rid.action) ;< ~ bind:m (delete-graph now.bowl rid.action)
(pure:m !>(~)) (pure:m !>(~))