Merge 85435e9a81 into release/next-js

This commit is contained in:
github-actions[bot] 2021-01-06 22:44:17 +00:00 committed by GitHub
commit 5053b1f38b
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 9 additions and 9 deletions

View File

@ -1,3 +1,3 @@
version https://git-lfs.github.com/spec/v1 version https://git-lfs.github.com/spec/v1
oid sha256:17eb2f5a123f5ad29b0cc9ff9069540c349dd97c6133a9ea33cbf81e0bfa4d6b oid sha256:632af0c484fc159ac58818b1510296319b45c73fc36eb9233e9270ae974d11e4
size 8483784 size 8547462

View File

@ -33,7 +33,7 @@
(pure:m (need ugroup)) (pure:m (need ugroup))
:: ::
++ delete-graph ++ delete-graph
|= rid=resource |= [group-rid=resource rid=resource]
=/ m (strand ,~) =/ m (strand ,~)
^- form:m ^- form:m
;< =bowl:spider bind:m get-bowl:strandio ;< =bowl:spider bind:m get-bowl:strandio
@ -43,12 +43,9 @@
(poke-our %graph-push-hook %push-hook-action !>([%remove rid])) (poke-our %graph-push-hook %push-hook-action !>([%remove rid]))
;< ~ bind:m ;< ~ bind:m
%+ poke-our %metadata-hook %+ poke-our %metadata-hook
metadata-hook-action+!>([%remove (en-path:resource rid)])
;< ~ bind:m
%+ poke-our %metadata-store
:- %metadata-action :- %metadata-action
!> :+ %remove !> :+ %remove
(en-path:resource rid) (en-path:resource group-rid)
[%graph (en-path:resource rid)] [%graph (en-path:resource rid)]
(pure:m ~) (pure:m ~)
-- --
@ -69,11 +66,14 @@
(scry-group u.ugroup-rid) (scry-group u.ugroup-rid)
?. hidden.group ?. hidden.group
;< ~ bind:m ;< ~ bind:m
(delete-graph rid.action) (delete-graph u.ugroup-rid rid.action)
(pure:m !>(~)) (pure:m !>(~))
;< ~ 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 ;< ~ bind:m
(poke-our %group-push-hook %push-hook-action !>([%remove rid.action])) (poke-our %group-push-hook %push-hook-action !>([%remove rid.action]))
;< ~ bind:m (delete-graph rid.action) ;< ~ bind:m (delete-graph u.ugroup-rid rid.action)
;< ~ bind:m
%+ poke-our %metadata-hook
metadata-hook-action+!>([%remove (en-path:resource u.ugroup-rid)])
(pure:m !>(~)) (pure:m !>(~))