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

Merge pull request #854 from paul-rouse/master

Browse Source 
Redirect dynamically in GoogleEmail2 login page
This commit is contained in:
Michael Snoyman 2014-10-21 11:25:15 +03:00
commit 245041bc92
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
yesod-auth/Yesod/Auth/GoogleEmail2.hs
View File

@ -115,8 +115,7 @@ authGoogleEmail clientID clientSecret =
`mappend` renderQueryText True qs `mappend` renderQueryText True qs
login tm = do login tm = do
url <- getDest tm [whamlet|<a href=@{tm forwardUrl}>_{Msg.LoginGoogle}|]
[whamlet|<a href=#{url}>_{Msg.LoginGoogle}|]
dispatch :: YesodAuth site dispatch :: YesodAuth site
=> Text => Text