haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix confirmation email status

Browse Source 
I screwed this up in a big re-factoring in 153654ad
This commit is contained in:
Greg Weber 2014-09-16 18:10:40 -07:00
parent 50f57a3586
commit 448b33d1cc
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
yesod-auth/Yesod/Auth/Email.hs
View File

@ -182,7 +182,9 @@ class ( YesodAuth site
confirmationEmailSentResponse :: Text -> HandlerT site IO TypedContent confirmationEmailSentResponse :: Text -> HandlerT site IO TypedContent
confirmationEmailSentResponse identifier = do confirmationEmailSentResponse identifier = do
mr <- getMessageRender mr <- getMessageRender
messageJson401 (mr msg) $ authLayout $ do selectRep $ do
provideJsonMessage (mr msg)
provideRep $ authLayout $ do
setTitleI Msg.ConfirmationEmailSentTitle setTitleI Msg.ConfirmationEmailSentTitle
[whamlet|<p>_{msg}|] [whamlet|<p>_{msg}|]
where where