Safe Haskell	Safe-Inferred
Language	Haskell2010

Network.OAuth2.Provider.Google

Contents

Authorization Code flow
Service Account
Service Account
IDP

Description

Google build oauth2 web server application

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 {
- name :: Text
- id :: Text
- email :: Text
}

Authorization Code flow

sampleGoogleAuthorizationCodeApp :: AuthorizationCodeApplication Source #

Service Account

sampleServiceAccountApp :: Jwt -> JwtBearerApplication Source #

data GoogleServiceAccountKey Source #

Service account key (in JSON format) that download from google

Constructors

GoogleServiceAccountKey
Fields privateKey :: String clientEmail :: Text projectId :: Text privateKeyId :: Text clientId :: Text authUri :: Text tokenUri :: Text authProviderX509CertUrl :: Text clientX509CertUrl :: Text

Instances

Instances details

FromJSON GoogleServiceAccountKey Source #
Instance details Defined in Network.OAuth2.Provider.Google Methods parseJSON :: Value -> Parser GoogleServiceAccountKey # parseJSONList :: Value -> Parser [GoogleServiceAccountKey] #
Generic GoogleServiceAccountKey Source #
Instance details Defined in Network.OAuth2.Provider.Google Associated Types type Rep GoogleServiceAccountKey :: Type -> Type # Methods from :: GoogleServiceAccountKey -> Rep GoogleServiceAccountKey x # to :: Rep GoogleServiceAccountKey x -> GoogleServiceAccountKey #
type Rep GoogleServiceAccountKey Source #
Instance details Defined in Network.OAuth2.Provider.Google type Rep GoogleServiceAccountKey = D1 ('MetaData "GoogleServiceAccountKey" "Network.OAuth2.Provider.Google" "hoauth2-providers-0.3.0-IsvcjVlVGHNJC4ObuzEmYQ" 'False) (C1 ('MetaCons "GoogleServiceAccountKey" 'PrefixI 'True) (((S1 ('MetaSel ('Just "privateKey") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String) :: S1 ('MetaSel ('Just "clientEmail") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)) :: (S1 ('MetaSel ('Just "projectId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :: S1 ('MetaSel ('Just "privateKeyId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text))) :: ((S1 ('MetaSel ('Just "clientId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :: S1 ('MetaSel ('Just "authUri") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)) :: (S1 ('MetaSel ('Just "tokenUri") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :: (S1 ('MetaSel ('Just "authProviderX509CertUrl") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :: S1 ('MetaSel ('Just "clientX509CertUrl") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text))))))

Service Account

mkJwt Source #

Arguments

:: PrivateKey
-> Text	Private key
-> Maybe Text	Issuer
-> Set Scope	impersonate user
-> Idp Google	Scope
-> IO (Either String Jwt)

readPemRsaKey Source #

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 #

defaultGoogleIdp :: Idp Google Source #

data GoogleUser Source #

Constructors

GoogleUser
Fields name :: Text id :: Text email :: Text

Instances

Instances details

FromJSON GoogleUser Source #
Instance details Defined in Network.OAuth2.Provider.Google Methods parseJSON :: Value -> Parser GoogleUser # parseJSONList :: Value -> Parser [GoogleUser] #
Generic GoogleUser Source #
Instance details Defined in Network.OAuth2.Provider.Google Associated Types type Rep GoogleUser :: Type -> Type # Methods from :: GoogleUser -> Rep GoogleUser x # to :: Rep GoogleUser x -> GoogleUser #
Show GoogleUser Source #
Instance details Defined in Network.OAuth2.Provider.Google Methods showsPrec :: Int -> GoogleUser -> ShowS # show :: GoogleUser -> String # showList :: [GoogleUser] -> ShowS #
type Rep GoogleUser Source #
Instance details Defined in Network.OAuth2.Provider.Google type Rep GoogleUser = D1 ('MetaData "GoogleUser" "Network.OAuth2.Provider.Google" "hoauth2-providers-0.3.0-IsvcjVlVGHNJC4ObuzEmYQ" '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))))