HOAuth2ProvidersTutorial

Configuration

testAuth0App :: IdpApplication 'AuthorizationCode Auth0

testAuth0Idp :: Idp Auth0

testGoogleIdp :: Idp Google

testGoogleApp :: IdpApplication 'AuthorizationCode Google

randomStateValue :: Text

You'll need to find out an better way to create state which is recommended in https://www.rfc-editor.org/rfc/rfc6749#section-10.12

Web server

data DemoUser

Constructors

DemoUser

Fields

• name :: Text
• email :: Maybe Text

Instances

Show DemoUser

Defined in HOAuth2ProvidersTutorial

Methods

showsPrec :: Int -> DemoUser -> ShowS

show :: DemoUser -> String

showList :: [DemoUser] -> ShowS

Eq DemoUser

Defined in HOAuth2ProvidersTutorial

Methods

(==) :: DemoUser -> DemoUser -> Bool

(/=) :: DemoUser -> DemoUser -> Bool

app :: IO ()

The scotty application

indexH :: IORef (Maybe DemoUser) -> ActionM ()

/ endpoint handler

loginAuth0H :: ActionM ()

loginauth0 endpoint handler

loginGoogleH :: ActionM ()

logingoogle endpoint handler

logoutH :: IORef (Maybe DemoUser) -> ActionM ()

/logout endpoint handler

callbackH :: IORef (Maybe DemoUser) -> ActionM ()

oauth2callback endpoint handler

handleAuth0Callback :: ExchangeToken -> ExceptT Text IO DemoUser

handleGoogleCallback :: ExchangeToken -> ExceptT Text IO DemoUser

Utilities

uriToText :: URI -> Text

bslToText :: ByteString -> Text

paramValue

Arguments

:: Text

Parameter key

-> [Param]

All parameters

-> Either Text Text

excepttToActionM :: Show a => ExceptT Text IO a -> ActionM a

Lift ExceptT to ActionM which is basically the handler Monad in Scotty.

oauth2ErrorToText :: TokenRequestError -> Text