Allow group admins to create projects and repos under group
This commit is contained in:
parent
dd27f9d5b9
commit
eb6fa307b3
1 changed files with 4 additions and 4 deletions
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue