From 448b33d1cc5b6d8c056ba1548746a17b33ca882a Mon Sep 17 00:00:00 2001
From: Greg Weber <greg@gregweber.info>
Date: Tue, 16 Sep 2014 18:10:40 -0700
Subject: [PATCH] fix confirmation email status

I screwed this up in a big re-factoring in 153654ad
---
 yesod-auth/Yesod/Auth/Email.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/yesod-auth/Yesod/Auth/Email.hs b/yesod-auth/Yesod/Auth/Email.hs
index 95def734..243a1ff8 100644
--- a/yesod-auth/Yesod/Auth/Email.hs
+++ b/yesod-auth/Yesod/Auth/Email.hs
@@ -182,7 +182,9 @@ class ( YesodAuth site
     confirmationEmailSentResponse :: Text -> HandlerT site IO TypedContent
     confirmationEmailSentResponse identifier = do
         mr <- getMessageRender
-        messageJson401 (mr msg) $ authLayout $ do
+        selectRep $ do
+            provideJsonMessage (mr msg)
+            provideRep $ authLayout $ do
               setTitleI Msg.ConfirmationEmailSentTitle
               [whamlet|<p>_{msg}|]
       where