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

Per the assignment's instructions.

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