hoauth2-providers-0.3.0: OAuth2 Identity Providers
Safe HaskellSafe-Inferred
LanguageHaskell2010

Network.OAuth2.Provider.Google

Description

Synopsis

Authorization Code flow

Service Account

data GoogleServiceAccountKey Source #

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

Instances

Instances details
FromJSON GoogleServiceAccountKey Source # 
Instance details

Defined in Network.OAuth2.Provider.Google

Generic GoogleServiceAccountKey Source # 
Instance details

Defined in Network.OAuth2.Provider.Google

Associated Types

type Rep GoogleServiceAccountKey :: Type -> Type #

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

data GoogleUser Source #

Constructors

GoogleUser 

Fields

Instances

Instances details
FromJSON GoogleUser Source # 
Instance details

Defined in Network.OAuth2.Provider.Google

Generic GoogleUser Source # 
Instance details

Defined in Network.OAuth2.Provider.Google

Associated Types

type Rep GoogleUser :: Type -> Type #

Show GoogleUser Source # 
Instance details

Defined in Network.OAuth2.Provider.Google

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