Require login for group creation

2016-05-25 06:58:09 +00:00 · 2016-05-25 06:58:09 +00:00 · 75f8fd7b7b
commit 75f8fd7b7b
parent 01915e6df9
1 changed files with 2 additions and 0 deletions
--- a/src/Vervis/Foundation.hs
+++ b/src/Vervis/Foundation.hs
@ -117,6 +117,8 @@ instance Yesod App where

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