From e420705b0743f541c88497b55c9bdcb5a9f09216 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Tue, 20 Aug 2013 13:35:22 +0300
Subject: [PATCH] Allow modification of confirmation email page

---
 yesod-auth/Yesod/Auth/Email.hs | 12 +++++++++---
 yesod-auth/yesod-auth.cabal    |  2 +-
 2 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/yesod-auth/Yesod/Auth/Email.hs b/yesod-auth/Yesod/Auth/Email.hs
index b57b02d8..70024aff 100644
--- a/yesod-auth/Yesod/Auth/Email.hs
+++ b/yesod-auth/Yesod/Auth/Email.hs
@@ -164,6 +164,14 @@ class (YesodAuth site, PathPiece (AuthEmailId site)) => YesodAuthEmail site wher
         | TS.length x >= 3 = return $ Right ()
         | otherwise = return $ Left "Password must be at least three characters"
 
+    -- | Response after sending a confirmation email.
+    --
+    -- Since 1.2.2
+    confirmationEmailSentResponse :: Text -> HandlerT site IO Html
+    confirmationEmailSentResponse identifier = defaultLayout $ do
+        setTitleI Msg.ConfirmationEmailSentTitle
+        [whamlet|<p>_{Msg.ConfirmationEmailSent identifier}|]
+
 authEmail :: YesodAuthEmail m => AuthPlugin m
 authEmail =
     AuthPlugin "email" dispatch $ \tm ->
@@ -249,9 +257,7 @@ registerHelper allowUsername dest = do
     render <- getUrlRender
     let verUrl = render $ verify (toPathPiece lid) verKey
     lift $ sendVerifyEmail email verKey verUrl
-    lift $ defaultLayout $ do
-        setTitleI Msg.ConfirmationEmailSentTitle
-        [whamlet|<p>_{Msg.ConfirmationEmailSent identifier}|]
+    lift $ confirmationEmailSentResponse identifier
 
 postRegisterR :: YesodAuthEmail master => HandlerT Auth (HandlerT master IO) Html
 postRegisterR = registerHelper False registerR
diff --git a/yesod-auth/yesod-auth.cabal b/yesod-auth/yesod-auth.cabal
index 4c77c40c..4717cee7 100644
--- a/yesod-auth/yesod-auth.cabal
+++ b/yesod-auth/yesod-auth.cabal
@@ -1,5 +1,5 @@
 name:            yesod-auth
-version:         1.2.1
+version:         1.2.2
 license:         MIT
 license-file:    LICENSE
 author:          Michael Snoyman, Patrick Brisbin