filipg/gonito
1
0
Fork 1
Code Issues 1 Pull Requests Releases Wiki Activity

admins password cannot be reset

Browse Source
This commit is contained in:
Filip Gralinski 2017-02-18 11:10:39 +01:00
parent 19b89f26ce
commit ea1e13ead6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Handler/AccountReset.hs
View File

@ -91,7 +91,7 @@ doResetPassword key (Just userId) (Just password) = do
doResetPassword' (isPasswordAcceptable password) key userId password doResetPassword' (isPasswordAcceptable password) key userId password
doResetPassword key Nothing _ = do doResetPassword key Nothing _ = do
runDB $ updateWhere [UserVerificationKey ==. Just key] removeVerificationKeyStatement runDB $ updateWhere [UserVerificationKey ==. Just key, UserIsAdmin ==. False] removeVerificationKeyStatement
master <- getYesod master <- getYesod
defaultLayout $ do defaultLayout $ do
setTitle "Reset password" setTitle "Reset password"