remove the id_token parameter

We saw this error:
Internal Server Error
key "id_token" not present

yesod-auth/Yesod/Auth/GoogleEmail2.hs

@@ -156,7 +156,7 @@ authGoogleEmail clientID clientSecret =
         manager <- liftM authHttpManager $ lift getYesod
         res <- http req manager
         value <- responseBody res $$+- sinkParser json'
-        Tokens accessToken _idToken tokenType <-
+        Tokens accessToken tokenType <-
             case parseEither parseJSON value of
                 Left e -> error e
                 Right t -> return t
@@ -184,11 +184,10 @@ authGoogleEmail clientID clientSecret =
 
     dispatch _ _ = notFound
 
-data Tokens = Tokens Text Text Text
+data Tokens = Tokens Text Text
 instance FromJSON Tokens where
     parseJSON = withObject "Tokens" $ \o -> Tokens
         <$> o .: "access_token"
-        <*> o .: "id_token"
         <*> o .: "token_type"
 
 data Person = Person [Email]

yesod-auth/yesod-auth.cabal

@@ -1,5 +1,5 @@
 name:            yesod-auth
-version:         1.3.4.3
+version:         1.3.4.4
 license:         MIT
 license-file:    LICENSE
 author:          Michael Snoyman, Patrick Brisbin