From eb6fa307b3f07584f5d2f97c7f5b82f5099ed0a5 Mon Sep 17 00:00:00 2001 From: fr33domlover Date: Tue, 7 Jun 2016 05:23:00 +0000 Subject: [PATCH] Allow group admins to create projects and repos under group --- src/Vervis/Foundation.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/Vervis/Foundation.hs b/src/Vervis/Foundation.hs index 24d1c66..2128ed2 100644 --- a/src/Vervis/Foundation.hs +++ b/src/Vervis/Foundation.hs @@ -142,16 +142,16 @@ instance Yesod App where (ProjectRoleOpsR shr _rl , _ ) -> personOrGroupAdmin shr (ProjectRoleOpNewR shr _rl , _ ) -> personOrGroupAdmin shr - (ReposR shar , True) -> person shar - (RepoNewR user , _ ) -> person user + (ReposR shr , True) -> personOrGroupAdmin shr + (RepoNewR shr , _ ) -> personOrGroupAdmin shr (RepoR shar _ , True) -> person shar (RepoEditR shr _rp , _ ) -> person shr (RepoDevsR shr _rp , _ ) -> person shr (RepoDevNewR shr _rp , _ ) -> person shr (RepoDevR shr _rp _dev , _ ) -> person shr - (ProjectsR shar , True) -> person shar - (ProjectNewR user , _ ) -> person user + (ProjectsR shr , True) -> personOrGroupAdmin shr + (ProjectNewR shr , _ ) -> personOrGroupAdmin shr (ProjectR shr _prj , True) -> person shr (ProjectEditR shr _prj , _ ) -> person shr (ProjectDevsR shr _prj , _ ) -> person shr