diff --git a/Handler/AccountReset.hs b/Handler/AccountReset.hs index f9bee2d..e88907e 100644 --- a/Handler/AccountReset.hs +++ b/Handler/AccountReset.hs @@ -101,9 +101,8 @@ doResetPassword' :: Bool -> Text -> Key User -> Text -> Handler Html doResetPassword' True _ userId password = do updatePassword userId (Just password) runDB $ update userId removeVerificationKeyStatement - defaultLayout $ do - setTitle "Reset password" - $(widgetFile "password-reset") + setMessage $ toHtml ("Password set! You can log in now." :: Text) + redirect HomeR doResetPassword' False key _ _ = do tooWeakPasswordMessage diff --git a/templates/password-reset.hamlet b/templates/password-reset.hamlet deleted file mode 100644 index 8a64c90..0000000 --- a/templates/password-reset.hamlet +++ /dev/null @@ -1 +0,0 @@ -

OK, the password has been changed.