Safe Haskell	Safe-Inferred
Language	Haskell2010

Network.OAuth2.Provider.Google

Contents

Authorization Code flow
Service Account
Service Account
IDP

Synopsis

data Google = Google
defaultGoogleApp :: IdpApplication 'AuthorizationCode Google
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)
defaultServiceAccountApp :: Jwt -> IdpApplication 'JwtBearer Google
defaultGoogleIdp :: Idp Google
data GoogleUser = GoogleUser {
- name :: Text
- id :: Text
- email :: Text
}

Documentation

data Google Source #

Constructors

Google

Instances

Instances details

Show Google Source #
Instance details Defined in Network.OAuth2.Provider.Google Methods showsPrec :: Int -> Google -> ShowS # show :: Google -> String # showList :: [Google] -> ShowS #
Eq Google Source #
Instance details Defined in Network.OAuth2.Provider.Google Methods (==) :: Google -> Google -> Bool # (/=) :: Google -> Google -> Bool #
type IdpUserInfo Google Source #
Instance details Defined in Network.OAuth2.Provider.Google type IdpUserInfo Google = GoogleUser

Authorization Code flow

defaultGoogleApp :: IdpApplication 'AuthorizationCode Google Source #

Service Account

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.2-4pqA01ULTYqIJnBsLAcuNL" '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

defaultServiceAccountApp :: Jwt -> IdpApplication 'JwtBearer Google Source #

IDP

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.2-4pqA01ULTYqIJnBsLAcuNL" '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))))