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 , _) ->