Merge pull request #854 from paul-rouse/master

Redirect dynamically in GoogleEmail2 login page
2014-10-21 11:25:15 +03:00 · 2014-10-21 11:25:15 +03:00 · 245041bc92
commit 245041bc92
parent f49ddc8047 fbb0313589
1 changed files with 1 additions and 2 deletions
--- a/yesod-auth/Yesod/Auth/GoogleEmail2.hs
+++ b/yesod-auth/Yesod/Auth/GoogleEmail2.hs
@ -115,8 +115,7 @@ authGoogleEmail clientID clientSecret =
                    `mappend` renderQueryText True qs

    login tm = do
-        url <- getDest tm
-        [whamlet|<a href=#{url}>_{Msg.LoginGoogle}|]
+        [whamlet|<a href=@{tm forwardUrl}>_{Msg.LoginGoogle}|]

    dispatch :: YesodAuth site
             => Text