From 332d520eee51caeb2630b645c7ed5966111f7ee6 Mon Sep 17 00:00:00 2001
From: Filip Gralinski <filipg@amu.edu.pl>
Date: Sat, 18 Feb 2017 11:32:48 +0100
Subject: [PATCH] improve redirection after resetting a password

---
 Handler/AccountReset.hs         | 5 ++---
 templates/password-reset.hamlet | 1 -
 2 files changed, 2 insertions(+), 4 deletions(-)
 delete mode 100644 templates/password-reset.hamlet

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 @@
-<p>OK, the password has been changed.