Safe Haskell | Safe-Inferred |
---|---|
Language | Haskell2010 |
Network.OAuth2.Provider.Google
Description
Synopsis
- sampleGoogleAuthorizationCodeApp :: AuthorizationCodeApplication
- sampleServiceAccountApp :: Jwt -> JwtBearerApplication
- data GoogleServiceAccountKey = GoogleServiceAccountKey {
- privateKey :: String
- clientEmail :: Text
- projectId :: Text
- privateKeyId :: Text
- clientId :: Text
- authUri :: Text
- tokenUri :: Text
- authProviderX509CertUrl :: Text
- clientX509CertUrl :: Text
- mkJwt :: PrivateKey -> Text -> Maybe Text -> Set Scope -> Idp Google -> IO (Either String Jwt)
- readPemRsaKey :: String -> IO (Either String PrivateKey)
- fetchUserInfo :: (MonadIO m, HasUserInfoRequest a, FromJSON b) => IdpApplication i a -> Manager -> AccessToken -> ExceptT ByteString m b
- defaultGoogleIdp :: Idp Google
- data GoogleUser = GoogleUser {}
Authorization Code flow
Service Account
data GoogleServiceAccountKey Source #
Service account key (in JSON format) that download from google
Constructors
GoogleServiceAccountKey | |
Fields
|
Instances
Service Account
Arguments
:: String | PEM content |
-> IO (Either String PrivateKey) |
Read private RSA Key in PEM format
IDP
fetchUserInfo :: (MonadIO m, HasUserInfoRequest a, FromJSON b) => IdpApplication i a -> Manager -> AccessToken -> ExceptT ByteString m b Source #
data GoogleUser Source #
Instances
FromJSON GoogleUser Source # | |
Defined in Network.OAuth2.Provider.Google | |
Generic GoogleUser Source # | |
Defined in Network.OAuth2.Provider.Google Associated Types type Rep GoogleUser :: Type -> Type # | |
Show GoogleUser Source # | |
Defined in Network.OAuth2.Provider.Google Methods showsPrec :: Int -> GoogleUser -> ShowS # show :: GoogleUser -> String # showList :: [GoogleUser] -> ShowS # | |
type Rep GoogleUser Source # | |
Defined in Network.OAuth2.Provider.Google type Rep GoogleUser = D1 ('MetaData "GoogleUser" "Network.OAuth2.Provider.Google" "hoauth2-providers-0.5.0-YAKFje1qhS7CRq5zl43M3" 'False) (C1 ('MetaCons "GoogleUser" 'PrefixI 'True) (S1 ('MetaSel ('Just "name") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: (S1 ('MetaSel ('Just "id") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "email") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))) |