sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-29 13:14:53 +09:00
Code Issues Activity

Allow group admins to create projects and repos under group

Browse source
This commit is contained in:
fr33domlover 2016-06-07 05:23:00 +00:00
parent dd27f9d5b9
commit eb6fa307b3
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/Vervis/Foundation.hs
View file

@ -142,16 +142,16 @@ instance Yesod App where
(ProjectRoleOpsR shr _rl , _ ) -> personOrGroupAdmin shr (ProjectRoleOpsR shr _rl , _ ) -> personOrGroupAdmin shr
(ProjectRoleOpNewR shr _rl , _ ) -> personOrGroupAdmin shr (ProjectRoleOpNewR shr _rl , _ ) -> personOrGroupAdmin shr
(ReposR shar , True) -> person shar (ReposR shr , True) -> personOrGroupAdmin shr
(RepoNewR user , _ ) -> person user (RepoNewR shr , _ ) -> personOrGroupAdmin shr
(RepoR shar _ , True) -> person shar (RepoR shar _ , True) -> person shar
(RepoEditR shr _rp , _ ) -> person shr (RepoEditR shr _rp , _ ) -> person shr
(RepoDevsR shr _rp , _ ) -> person shr (RepoDevsR shr _rp , _ ) -> person shr
(RepoDevNewR shr _rp , _ ) -> person shr (RepoDevNewR shr _rp , _ ) -> person shr
(RepoDevR shr _rp _dev , _ ) -> person shr (RepoDevR shr _rp _dev , _ ) -> person shr
(ProjectsR shar , True) -> person shar (ProjectsR shr , True) -> personOrGroupAdmin shr
(ProjectNewR user , _ ) -> person user (ProjectNewR shr , _ ) -> personOrGroupAdmin shr
(ProjectR shr _prj , True) -> person shr (ProjectR shr _prj , True) -> person shr
(ProjectEditR shr _prj , _ ) -> person shr (ProjectEditR shr _prj , _ ) -> person shr
(ProjectDevsR shr _prj , _ ) -> person shr (ProjectDevsR shr _prj , _ ) -> person shr