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

Merge pull request #980 from rzetterberg/master

Browse Source 
Adds export of email verify route
This commit is contained in:
Michael Snoyman 2015-04-26 18:36:24 +03:00
commit 9db6ef3e69
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -30,6 +30,7 @@ module Yesod.Auth.Email
, registerR , registerR
, forgotPasswordR , forgotPasswordR
, setpassR , setpassR
, verifyR
, isValidPass , isValidPass
-- * Types -- * Types
, Email , Email
@ -74,8 +75,8 @@ registerR = PluginR "email" ["register"]
forgotPasswordR = PluginR "email" ["forgot-password"] forgotPasswordR = PluginR "email" ["forgot-password"]
setpassR = PluginR "email" ["set-password"] setpassR = PluginR "email" ["set-password"]
verify :: Text -> Text -> AuthRoute -- FIXME verifyR :: Text -> Text -> AuthRoute -- FIXME
verify eid verkey = PluginR "email" ["verify", eid, verkey] verifyR eid verkey = PluginR "email" ["verify", eid, verkey]
type Email = Text type Email = Text
type VerKey = Text type VerKey = Text
@ -345,7 +346,7 @@ registerHelper allowUsername dest = do
Nothing -> loginErrorMessageI dest (Msg.IdentifierNotFound identifier) Nothing -> loginErrorMessageI dest (Msg.IdentifierNotFound identifier)
Just (lid, verKey, email) -> do Just (lid, verKey, email) -> do
render <- getUrlRender render <- getUrlRender
let verUrl = render $ verify (toPathPiece lid) verKey let verUrl = render $ verifyR (toPathPiece lid) verKey
lift $ sendVerifyEmail email verKey verUrl lift $ sendVerifyEmail email verKey verUrl
lift $ confirmationEmailSentResponse identifier lift $ confirmationEmailSentResponse identifier