naskya/vervis
1
0
Fork 0
mirror of https://code.naskya.net/repos/ndqEd synced 2025-01-10 16:46:46 +09:00
Code Activity

Require login for group creation

Browse source
This commit is contained in:
fr33domlover 2016-05-25 06:58:09 +00:00
parent 01915e6df9
commit 75f8fd7b7b
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Vervis/Foundation.hs
View file

@ -117,6 +117,8 @@ instance Yesod App where
-- Who can access which pages. -- Who can access which pages.
isAuthorized r w = case (r, w) of isAuthorized r w = case (r, w) of
(GroupsR , True) -> loggedIn
(GroupNewR , _) -> loggedIn
(ProjectNewR user , _) -> (ProjectNewR user , _) ->
loggedInAs user "You can’t create projects for other users" loggedInAs user "You can’t create projects for other users"
(RepoNewR user , _) -> (RepoNewR user , _) ->