graph-push-hook: fix +is-allowed

This commit is contained in:
Liam Fitzgerald 2021-02-03 10:34:16 +10:00
parent 3fce1cdcb6
commit 9d08d0d2b6
No known key found for this signature in database
GPG Key ID: D390E12C61D1CFFB

View File

@ -97,7 +97,7 @@
++ initial-watch
|= [=path =resource:res]
^- vase
?> (is-allowed resource bowl %.n)
?> (is-allowed resource)
!> ^- update:store
?~ path
:: new subscribe
@ -185,8 +185,10 @@
reader.permissions
::
++ is-allowed
|= *
%.y
|= =resource:res
=/ group-res=resource:res
(need (peek-group:met %graph resource))
(is-member:grp src.bowl group-res)
::
++ get-roles-writers-variation
|= =resource:res