mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Allow managers to CRUD all account types (not just admins)

Browse source 
Per the assignment's instructions.
This commit is contained in:
William Carroll 2020-08-02 14:31:00 +01:00
parent 803db7a5b2
commit 81c3db20d4
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/App.hs
View file

@ -89,7 +89,7 @@ server config@T.Config{..} = createAccount
(Nothing, T.Admin) -> (Nothing, T.Admin) ->
throwError err401 { errBody = "Only admins can create Admin accounts" } throwError err401 { errBody = "Only admins can create Admin accounts" }
(Just cookie, _) -> (Just cookie, _) ->
adminsOnly cookie doCreateAccount adminsAnd cookie (\T.Account{..} -> accountRole == T.Manager) doCreateAccount
where where
doCreateAccount :: Handler NoContent doCreateAccount :: Handler NoContent
doCreateAccount = do doCreateAccount = do