From 75f8fd7b7b4090e5a9149e03c10aa2f2e77d7cc3 Mon Sep 17 00:00:00 2001
From: fr33domlover <fr33domlover@rel4tion.org>
Date: Wed, 25 May 2016 06:58:09 +0000
Subject: [PATCH] Require login for group creation

---
 src/Vervis/Foundation.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/Vervis/Foundation.hs b/src/Vervis/Foundation.hs
index 83955a4..93124a7 100644
--- 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           , _) ->