yesod-auth 1.3.4.3 → 1.3.4.4

raw patch · 2 files changed

+3/−4 lines, 2 files

Files

• Yesod/Auth/GoogleEmail2.hs +2/−3
• yesod-auth.cabal +1/−1

@@ -156,7 +156,7 @@         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 @@      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]

@@ -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