s464900/gonito
1
0
Fork 0
forked from filipg/gonito
Code Issues Pull Requests Projects Releases Wiki Activity

improve redirection after resetting a password

Browse Source
This commit is contained in:
Filip Gralinski 2017-02-18 11:32:48 +01:00
parent ea1e13ead6
commit 332d520eee
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Handler/AccountReset.hs
View File

@ -101,9 +101,8 @@ doResetPassword' :: Bool -> Text -> Key User -> Text -> Handler Html
doResetPassword' True _ userId password = do doResetPassword' True _ userId password = do
updatePassword userId (Just password) updatePassword userId (Just password)
runDB $ update userId removeVerificationKeyStatement runDB $ update userId removeVerificationKeyStatement
defaultLayout $ do setMessage $ toHtml ("Password set! You can log in now." :: Text)
setTitle "Reset password" redirect HomeR
$(widgetFile "password-reset")
doResetPassword' False key _ _ = do doResetPassword' False key _ _ = do
tooWeakPasswordMessage tooWeakPasswordMessage

1
templates/password-reset.hamlet
View File

@ -1 +0,0 @@
<p>OK, the password has been changed.