diff options
| -rw-r--r-- | src/App.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/App.hs b/src/App.hs index 6f52dabccc22..07203d143646 100644 --- a/src/App.hs +++ b/src/App.hs @@ -89,7 +89,7 @@ server config@T.Config{..} = createAccount (Nothing, T.Admin) -> throwError err401 { errBody = "Only admins can create Admin accounts" } (Just cookie, _) -> - adminsOnly cookie doCreateAccount + adminsAnd cookie (\T.Account{..} -> accountRole == T.Manager) doCreateAccount where doCreateAccount :: Handler NoContent doCreateAccount = do |