GoogleEmail skips unnecessary parameter

yesod-auth/Yesod/Auth/GoogleEmail.hs

@@ -31,45 +31,37 @@ import Control.Exception.Lifted (try, SomeException)
 forwardUrl :: AuthRoute
 forwardUrl = PluginR "googleemail" ["forward"]
 
+googleIdent :: Text
+googleIdent = "https://www.google.com/accounts/o8/id"
+
 authGoogleEmail :: YesodAuth m => AuthPlugin m
 authGoogleEmail =
     AuthPlugin "googleemail" dispatch login
   where
     complete = PluginR "googleemail" ["complete"]
     name = "openid_identifier"
-    login tm = do
+    login tm =
-        [whamlet|
+        [whamlet|<a href=@{tm forwardUrl}>_{Msg.LoginGoogle}|]
-<form method=get action=@{tm forwardUrl}>
-    <input type=hidden name=openid_identifier value=https://www.google.com/accounts/o8/id>
-    <input type=submit value=_{Msg.LoginGoogle}>
-|]
     dispatch "GET" ["forward"] = do
-        roid <- runInputGet $ iopt textField name
+        render <- getUrlRender
-        case roid of
+        toMaster <- getRouteToMaster
-            Just oid -> do
+        let complete' = render $ toMaster complete
-                render <- getUrlRender
+        master <- getYesod
-                toMaster <- getRouteToMaster
+        eres <- lift $ try $ OpenId.getForwardUrl googleIdent complete' Nothing
-                let complete' = render $ toMaster complete
+            [ ("openid.ax.type.email", "http://schema.openid.net/contact/email")
-                master <- getYesod
+            , ("openid.ns.ax", "http://openid.net/srv/ax/1.0")
-                eres <- lift $ try $ OpenId.getForwardUrl oid complete' Nothing
+            , ("openid.ns.ax.required", "email")
-                    [ ("openid.ax.type.email", "http://schema.openid.net/contact/email")
+            , ("openid.ax.mode", "fetch_request")
-                    , ("openid.ns.ax", "http://openid.net/srv/ax/1.0")
+            , ("openid.ax.required", "email")
-                    , ("openid.ns.ax.required", "email")
+            , ("openid.ui.icon", "true")
-                    , ("openid.ax.mode", "fetch_request")
+            ] (authHttpManager master)
-                    , ("openid.ax.required", "email")
+        either
-                    , ("openid.ui.icon", "true")
+          (\err -> do
-                    ] (authHttpManager master)
+                setMessage $ toHtml $ show (err :: SomeException)
-                either
-                  (\err -> do
-                        setMessage $ toHtml $ show (err :: SomeException)
-                        redirect $ toMaster LoginR
-                        )
-                  redirect
-                  eres
-            Nothing -> do
-                toMaster <- getRouteToMaster
-                setMessageI Msg.NoOpenID
                 redirect $ toMaster LoginR
+                )
+          redirect
+          eres
     dispatch "GET" ["complete", ""] = dispatch "GET" ["complete"] -- compatibility issues
     dispatch "GET" ["complete"] = do
         rr <- getRequest

yesod-auth/yesod-auth.cabal

@@ -1,5 +1,5 @@
 name:            yesod-auth
-version:         0.8.1
+version:         0.8.1.1
 license:         BSD3
 license-file:    LICENSE
 author:          Michael Snoyman, Patrick Brisbin