Redirect dynamically in GoogleEmail2 login page

2014-10-21 09:09:34 +01:00 · 2014-10-21 09:09:34 +01:00 · fbb0313589
commit fbb0313589
parent f49ddc8047
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