haskell/yesod-auth-oauth2
1
0
Fork 0
mirror of https://github.com/freckle/yesod-auth-oauth2.git synced 2026-01-11 19:58:28 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

HLint

Browse Source
This commit is contained in:
patrick brisbin 2024-07-08 10:19:33 -04:00 committed by Pat Brisbin
parent 07c6ea6875
commit 7b0d4f6243
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"