sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-27 18:14:52 +09:00
Code Issues Activity

Reduce verbosity of isAuthorized

Browse source
This commit is contained in:
fr33domlover 2016-05-25 06:53:22 +00:00
parent bc66463776
commit 01915e6df9
1 changed files with 19 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

37
src/Vervis/Foundation.hs
View file

@ -116,24 +116,25 @@ instance Yesod App where
authRoute _ = Just $ AuthR LoginR
-- Who can access which pages.
isAuthorized (ProjectNewR user) _ =
loggedInAs user "You can’t create projects for other users"
isAuthorized (RepoNewR user) _ =
loggedInAs user "You can’t create repos for other users"
isAuthorized KeysR _ = loggedIn
isAuthorized (KeyR _key) _ = loggedIn
isAuthorized KeyNewR _ = loggedIn
isAuthorized (RepoR shar _) True =
loggedInAs shar "You can’t modify repos for other users"
isAuthorized (TicketNewR _ _) _ = loggedIn
isAuthorized (TicketR user _ _) True =
loggedInAs user "Only project members can modify this ticket"
isAuthorized (TicketEditR user _ _) _ =
loggedInAs user "Only project members can modify this ticket"
isAuthorized (TicketDiscussionR _ _ _) True = loggedIn
isAuthorized (TicketTopReplyR _ _ _) _ = loggedIn
isAuthorized (TicketReplyR _ _ _ _) _ = loggedIn
isAuthorized _ _ = return Authorized
isAuthorized r w = case (r, w) of
(ProjectNewR user , _) ->
loggedInAs user "You can’t create projects for other users"
(RepoNewR user , _) ->
loggedInAs user "You can’t create repos for other users"
(KeysR , _) -> loggedIn
(KeyR _key , _) -> loggedIn
(KeyNewR , _) -> loggedIn
(RepoR shar _ , True) ->
loggedInAs shar "You can’t modify repos for other users"
(TicketNewR _ _ , _) -> loggedIn
(TicketR user _ _ , True) ->
loggedInAs user "Only project members can modify this ticket"
(TicketEditR user _ _ , _) ->
loggedInAs user "Only project members can modify this ticket"
(TicketDiscussionR _ _ _ , True) -> loggedIn
(TicketTopReplyR _ _ _ , _) -> loggedIn
(TicketReplyR _ _ _ _ , _) -> loggedIn
_ -> return Authorized
-- This function creates static content files in the static folder
-- and names them based on a hash of their content. This allows