urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-01 14:42:02 +03:00
Code Issues Packages Projects Releases Wiki Activity
0f2c4d069e
shrub/pkg/arvo/lib/group.hoon

116 lines
2.2 KiB
Plaintext
Raw Normal View History

groups: fix race condition in joining flow Attempting to sync a group that a ship is not in causes the subscription to fail. Because the %add-members action and the sync used to be sent in one invocation, ames does not guaranteed the order of these remote actions and so we wait for the %add-members poke to be acked before adding the group and associated resources.
2020-05-29 04:53:14 +03:00
/- *group, *metadata-store, hook=group-hook
groups: migrate to push-pull hooks and resources
2020-06-08 10:53:16 +03:00
/+ store=group-store, resource
groups: finalize state adapters
2020-06-24 03:28:57 +03:00
::
groups: finish rewrite
2020-05-21 07:30:02 +03:00
|_ =bowl:gall
groups: fix race condition in joining flow Attempting to sync a group that a ship is not in causes the subscription to fail. Because the %add-members action and the sync used to be sent in one invocation, ames does not guaranteed the order of these remote actions and so we wait for the %add-members poke to be acked before adding the group and associated resources.
2020-05-29 04:53:14 +03:00
+$ card card:agent:gall
groups: finish rewrite
2020-05-21 07:30:02 +03:00
++ scry-for
|* [=mold =path]
.^ mold
%gx
(scot %p our.bowl)
%group-store
(scot %da now.bowl)
(snoc `^path`path %noun)
==
groups: fix race condition in joining flow Attempting to sync a group that a ship is not in causes the subscription to fail. Because the %add-members action and the sync used to be sent in one invocation, ames does not guaranteed the order of these remote actions and so we wait for the %add-members poke to be acked before adding the group and associated resources.
2020-05-29 04:53:14 +03:00
++ scry-tag
groups: migrate to push-pull hooks and resources
2020-06-08 10:53:16 +03:00
|= [rid=resource =tag]
groups: fix race condition in joining flow Attempting to sync a group that a ship is not in causes the subscription to fail. Because the %add-members action and the sync used to be sent in one invocation, ames does not guaranteed the order of these remote actions and so we wait for the %add-members poke to be acked before adding the group and associated resources.
2020-05-29 04:53:14 +03:00
^- (unit (set ship))
=/ group
groups: migrate to push-pull hooks and resources
2020-06-08 10:53:16 +03:00
(scry-group rid)
groups: fix race condition in joining flow Attempting to sync a group that a ship is not in causes the subscription to fail. Because the %add-members action and the sync used to be sent in one invocation, ames does not guaranteed the order of these remote actions and so we wait for the %add-members poke to be acked before adding the group and associated resources.
2020-05-29 04:53:14 +03:00
?~ group
~
`(~(gut by tags.u.group) tag ~)
groups: finish rewrite
2020-05-21 07:30:02 +03:00
::
++ scry-group-path
|= =path
%+ scry-for
(unit group)
[%groups path]
::
++ scry-group
groups: migrate to push-pull hooks and resources
2020-06-08 10:53:16 +03:00
|= rid=resource
groups: finish rewrite
2020-05-21 07:30:02 +03:00
%- scry-group-path
groups: migrate to push-pull hooks and resources
2020-06-08 10:53:16 +03:00
(en-path:resource rid)
chat: update to new groups
2020-05-25 08:52:54 +03:00
::
++ members
groups: migrate to push-pull hooks and resources
2020-06-08 10:53:16 +03:00
|= rid=resource
chat: update to new groups
2020-05-25 08:52:54 +03:00
%- members-from-path
groups: migrate to push-pull hooks and resources
2020-06-08 10:53:16 +03:00
(en-path:resource rid)
groups: finish rewrite
2020-05-21 07:30:02 +03:00
::
++ members-from-path
|= =group-path
^- (set ship)
=- members:(fall - *group)
(scry-group-path group-path)
::
groups: address review comments
2020-07-02 05:17:28 +03:00
++ is-member
groups: finish rewrite
2020-05-21 07:30:02 +03:00
|= [=ship =group-path]
^- ?
=- (~(has in -) ship)
(members-from-path group-path)
graph-push-hook: graph push hook forwarding works
2020-09-18 23:09:06 +03:00
::
++ is-admin
|= [=ship =group-path]
^- ?
=/ tags tags:(fall (scry-group-path group-path) *group)
=/ admins=(set ^ship) (~(gut by tags) %admin ~)
(~(has in admins) ship)
groups: add .hidden flag on group
2020-05-27 07:32:43 +03:00
:: +role-for-ship: get role for user
groups: finish rewrite
2020-05-21 07:30:02 +03:00
::
groups: add .hidden flag on group
2020-05-27 07:32:43 +03:00
:: Returns ~ if no such group exists or user is not
:: a member of the group. Returns [~ ~] if the user
:: is a member with no additional role.
groups: finish rewrite
2020-05-21 07:30:02 +03:00
++ role-for-ship
groups: migrate to push-pull hooks and resources
2020-06-08 10:53:16 +03:00
|= [rid=resource =ship]
groups: add .hidden flag on group
2020-05-27 07:32:43 +03:00
^- (unit (unit role-tag))
groups: finish rewrite
2020-05-21 07:30:02 +03:00
=/ grp=(unit group)
groups: migrate to push-pull hooks and resources
2020-06-08 10:53:16 +03:00
(scry-group rid)
groups: finish rewrite
2020-05-21 07:30:02 +03:00
?~ grp ~
=* group u.grp
=* policy policy.group
groups: namespace tags
2020-05-27 09:19:29 +03:00
=* tags tags.group
groups: finish rewrite
2020-05-21 07:30:02 +03:00
=/ admins=(set ^ship)
groups: namespace tags
2020-05-27 09:19:29 +03:00
(~(gut by tags) %admin ~)
groups: finish rewrite
2020-05-21 07:30:02 +03:00
?: (~(has in admins) ship)
groups: add .hidden flag on group
2020-05-27 07:32:43 +03:00
``%admin
groups: finish rewrite
2020-05-21 07:30:02 +03:00
=/ mods
groups: namespace tags
2020-05-27 09:19:29 +03:00
(~(gut by tags) %moderator ~)
groups: finish rewrite
2020-05-21 07:30:02 +03:00
?: (~(has in mods) ship)
groups: add .hidden flag on group
2020-05-27 07:32:43 +03:00
``%moderator
groups: finish rewrite
2020-05-21 07:30:02 +03:00
=/ janitors
groups: namespace tags
2020-05-27 09:19:29 +03:00
(~(gut by tags) %janitor ~)
groups: finish rewrite
2020-05-21 07:30:02 +03:00
?: (~(has in janitors) ship)
groups: add .hidden flag on group
2020-05-27 07:32:43 +03:00
``%janitor
groups: finish rewrite
2020-05-21 07:30:02 +03:00
?: (~(has in members.group) ship)
groups: add .hidden flag on group
2020-05-27 07:32:43 +03:00
[~ ~]
groups: finish rewrite
2020-05-21 07:30:02 +03:00
~
graph-push-hook: graph push hook forwarding works
2020-09-18 23:09:06 +03:00
::
chat: update to new groups
2020-05-25 08:52:54 +03:00
++ can-join-from-path
groups: finish rewrite
2020-05-21 07:30:02 +03:00
|= [=path =ship]
%+ scry-for
?
%+ welp
[%groups path]
/join/[(scot %p ship)]
chat: update to new groups
2020-05-25 08:52:54 +03:00
::
++ can-join
groups: migrate to push-pull hooks and resources
2020-06-08 10:53:16 +03:00
|= [rid=resource =ship]
chat: update to new groups
2020-05-25 08:52:54 +03:00
%+ can-join-from-path
groups: migrate to push-pull hooks and resources
2020-06-08 10:53:16 +03:00
(en-path:resource rid)
chat: update to new groups
2020-05-25 08:52:54 +03:00
ship
groups: fix race condition in joining flow Attempting to sync a group that a ship is not in causes the subscription to fail. Because the %add-members action and the sync used to be sent in one invocation, ames does not guaranteed the order of these remote actions and so we wait for the %add-members poke to be acked before adding the group and associated resources.
2020-05-29 04:53:14 +03:00
::
chat: update to new groups
2020-05-25 08:52:54 +03:00
++ is-managed-path
|= =path
groups: add .hidden flag on group
2020-05-27 07:32:43 +03:00
^- ?
=/ group=(unit group)
(scry-group-path path)
?~ group %.n
!hidden.u.group
::
chat: update to new groups
2020-05-25 08:52:54 +03:00
++ is-managed
groups: migrate to push-pull hooks and resources
2020-06-08 10:53:16 +03:00
|= rid=resource
chat: update to new groups
2020-05-25 08:52:54 +03:00
%- is-managed-path
groups: migrate to push-pull hooks and resources
2020-06-08 10:53:16 +03:00
(en-path:resource rid)
groups: add .hidden flag on group
2020-05-27 07:32:43 +03:00
::
groups: finish rewrite
2020-05-21 07:30:02 +03:00
--
Reference in New Issue Copy Permalink