From fbb031358961ddbd1ff3459138483547c4eca79c Mon Sep 17 00:00:00 2001
From: Paul Rouse <pgr@doynton.org>
Date: Tue, 21 Oct 2014 09:09:34 +0100
Subject: [PATCH] Redirect dynamically in GoogleEmail2 login page

---
 yesod-auth/Yesod/Auth/GoogleEmail2.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/yesod-auth/Yesod/Auth/GoogleEmail2.hs b/yesod-auth/Yesod/Auth/GoogleEmail2.hs
index e7e6829b..4050084f 100644
--- 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