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

Network.OAuth2.Provider.AzureAD

Description

AzureAD oauth2 flow

Synopsis

Documentation

sampleAzureADAuthorizationCodeApp :: AuthorizationCodeApplication Source #

fetchUserInfo :: (MonadIO m, HasUserInfoRequest a, FromJSON b) => IdpApplication i a -> Manager -> AccessToken -> ExceptT ByteString m b Source #

defaultAzureADIdp :: Idp AzureAD Source #

https://login.microsoftonline.com/common/v2.0/.well-known/openid-configuration It's supporse to resue mkAzureIdp

mkAzureIdp "common"

But its issuer is "https://login.microsoftonline.com/{tenantid}/v2.0", which is invalid URI!!

mkAzureIdp Source #

Arguments

:: MonadIO m 
=> Text

Full domain with no http protocol. e.g. contoso.onmicrosoft.com

-> ExceptT Text m (Idp AzureAD) 

data AzureADUser Source #

https://learn.microsoft.com/en-us/azure/active-directory/develop/userinfo

Constructors

AzureADUser 

Fields

Instances

Instances details
FromJSON AzureADUser Source # 
Instance details

Defined in Network.OAuth2.Provider.AzureAD

Methods

parseJSON :: Value -> Parser AzureADUser #

parseJSONList :: Value -> Parser [AzureADUser] #

omittedField :: Maybe AzureADUser #

Generic AzureADUser Source # 
Instance details

Defined in Network.OAuth2.Provider.AzureAD

Associated Types

type Rep AzureADUser :: Type -> Type #

Methods

from :: AzureADUser -> Rep AzureADUser x #

to :: Rep AzureADUser x -> AzureADUser #

Show AzureADUser Source # 
Instance details

Defined in Network.OAuth2.Provider.AzureAD

Methods

showsPrec :: Int -> AzureADUser -> ShowS #

show :: AzureADUser -> String #

showList :: [AzureADUser] -> ShowS #

type Rep AzureADUser Source # 
Instance details

Defined in Network.OAuth2.Provider.AzureAD

type Rep AzureADUser = D1 ('MetaData "AzureADUser" "Network.OAuth2.Provider.AzureAD" "hoauth2-providers-0.5.0-YAKFje1qhS7CRq5zl43M3" 'False) (C1 ('MetaCons "AzureADUser" 'PrefixI 'True) ((S1 ('MetaSel ('Just "sub") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "email") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)) :*: (S1 ('MetaSel ('Just "familyName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: (S1 ('MetaSel ('Just "givenName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "name") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))))