haskell/yesod-auth-oauth2
1
0
Fork 0
mirror of https://github.com/freckle/yesod-auth-oauth2.git synced 2026-09-14 13:14:59 +02:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

HLint

Browse Source
This commit is contained in:
patrick brisbin 2024-07-08 10:19:33 -04:00
parent f67fce7dd8
commit 046f315341
No known key found for this signature in database
GPG Key ID: 07BF97A312D7F34C
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Yesod/Auth/OAuth2/Google.hs
View File

@ -39,9 +39,8 @@ newtype User = User Text
instance FromJSON User where instance FromJSON User where
parseJSON = parseJSON =
withObject "User" $ \o -> withObject "User" $ \o ->
User -- Required for data backwards-compatibility
-- Required for data backwards-compatibility User . ("google-uid:" <>) <$> o .: "sub"
<$> (("google-uid:" <>) <$> o .: "sub")
pluginName :: Text pluginName :: Text
pluginName = "google" pluginName = "google"