Network.OAuth.OAuth2.Internal

A simple OAuth2 Haskell binding. (This is supposed to be independent of the http client used.)

Data Types

data OAuth2

Query Parameter Representation

Constructors

OAuth2

Fields

• oauthClientId :: Text
• oauthClientSecret :: Text
• oauthOAuthorizeEndpoint :: URI
• oauthAccessTokenEndpoint :: URI
• oauthCallback :: Maybe URI

Instances

Eq OAuth2

Defined in Network.OAuth.OAuth2.Internal

Methods

(==) :: OAuth2 -> OAuth2 -> Bool

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

Show OAuth2

Defined in Network.OAuth.OAuth2.Internal

Methods

showsPrec :: Int -> OAuth2 -> ShowS

show :: OAuth2 -> String

showList :: [OAuth2] -> ShowS

newtype AccessToken

Constructors

AccessToken

Fields

• atoken :: Text

Instances

Show AccessToken

Defined in Network.OAuth.OAuth2.Internal

Methods

showsPrec :: Int -> AccessToken -> ShowS

show :: AccessToken -> String

showList :: [AccessToken] -> ShowS

ToJSON AccessToken

Defined in Network.OAuth.OAuth2.Internal

Methods

toJSON :: AccessToken -> Value

toEncoding :: AccessToken -> Encoding

toJSONList :: [AccessToken] -> Value

toEncodingList :: [AccessToken] -> Encoding

FromJSON AccessToken

Defined in Network.OAuth.OAuth2.Internal

Methods

parseJSON :: Value -> Parser AccessToken

parseJSONList :: Value -> Parser [AccessToken]

Binary AccessToken

Defined in Network.OAuth.OAuth2.Internal

Methods

put :: AccessToken -> Put

get :: Get AccessToken

putList :: [AccessToken] -> Put

newtype RefreshToken

Constructors

RefreshToken

Fields

• rtoken :: Text

Instances

Show RefreshToken

Defined in Network.OAuth.OAuth2.Internal

Methods

showsPrec :: Int -> RefreshToken -> ShowS

show :: RefreshToken -> String

showList :: [RefreshToken] -> ShowS

ToJSON RefreshToken

Defined in Network.OAuth.OAuth2.Internal

Methods

toJSON :: RefreshToken -> Value

toEncoding :: RefreshToken -> Encoding

toJSONList :: [RefreshToken] -> Value

toEncodingList :: [RefreshToken] -> Encoding

FromJSON RefreshToken

Defined in Network.OAuth.OAuth2.Internal

Methods

parseJSON :: Value -> Parser RefreshToken

parseJSONList :: Value -> Parser [RefreshToken]

Binary RefreshToken

Defined in Network.OAuth.OAuth2.Internal

Methods

put :: RefreshToken -> Put

get :: Get RefreshToken

putList :: [RefreshToken] -> Put

newtype IdToken

Constructors

IdToken

Fields

• idtoken :: Text

Instances

Show IdToken

Defined in Network.OAuth.OAuth2.Internal

Methods

showsPrec :: Int -> IdToken -> ShowS

show :: IdToken -> String

showList :: [IdToken] -> ShowS

ToJSON IdToken

Defined in Network.OAuth.OAuth2.Internal

Methods

toJSON :: IdToken -> Value

toEncoding :: IdToken -> Encoding

toJSONList :: [IdToken] -> Value

toEncodingList :: [IdToken] -> Encoding

FromJSON IdToken

Defined in Network.OAuth.OAuth2.Internal

Methods

parseJSON :: Value -> Parser IdToken

parseJSONList :: Value -> Parser [IdToken]

Binary IdToken

Defined in Network.OAuth.OAuth2.Internal

Methods

put :: IdToken -> Put

get :: Get IdToken

putList :: [IdToken] -> Put

newtype ExchangeToken

Constructors

ExchangeToken

Fields

• extoken :: Text

Instances

Show ExchangeToken

Defined in Network.OAuth.OAuth2.Internal

Methods

showsPrec :: Int -> ExchangeToken -> ShowS

show :: ExchangeToken -> String

showList :: [ExchangeToken] -> ShowS

ToJSON ExchangeToken

Defined in Network.OAuth.OAuth2.Internal

Methods

toJSON :: ExchangeToken -> Value

toEncoding :: ExchangeToken -> Encoding

toJSONList :: [ExchangeToken] -> Value

toEncodingList :: [ExchangeToken] -> Encoding

FromJSON ExchangeToken

Defined in Network.OAuth.OAuth2.Internal

Methods

parseJSON :: Value -> Parser ExchangeToken

parseJSONList :: Value -> Parser [ExchangeToken]

data OAuth2Token

The gained Access Token. Use Data.Aeson.decode to decode string to AccessToken. The refreshToken is special in some cases, e.g. https://developers.google.com/accounts/docs/OAuth2

Constructors

OAuth2Token

Fields

• accessToken :: AccessToken
• refreshToken :: Maybe RefreshToken
• expiresIn :: Maybe Int
• tokenType :: Maybe Text
• idToken :: Maybe IdToken

Instances

Show OAuth2Token

Defined in Network.OAuth.OAuth2.Internal

Methods

showsPrec :: Int -> OAuth2Token -> ShowS

show :: OAuth2Token -> String

showList :: [OAuth2Token] -> ShowS

Generic OAuth2Token

Defined in Network.OAuth.OAuth2.Internal

Associated Types

type Rep OAuth2Token :: Type -> Type

Methods

from :: OAuth2Token -> Rep OAuth2Token x

to :: Rep OAuth2Token x -> OAuth2Token

ToJSON OAuth2Token

Defined in Network.OAuth.OAuth2.Internal

Methods

toJSON :: OAuth2Token -> Value

toEncoding :: OAuth2Token -> Encoding

toJSONList :: [OAuth2Token] -> Value

toEncodingList :: [OAuth2Token] -> Encoding

FromJSON OAuth2Token

Parse JSON data into OAuth2Token

Defined in Network.OAuth.OAuth2.Internal

Methods

parseJSON :: Value -> Parser OAuth2Token

parseJSONList :: Value -> Parser [OAuth2Token]

Binary OAuth2Token

Defined in Network.OAuth.OAuth2.Internal

Methods

put :: OAuth2Token -> Put

get :: Get OAuth2Token

putList :: [OAuth2Token] -> Put

type Rep OAuth2Token

Defined in Network.OAuth.OAuth2.Internal

type Rep OAuth2Token = D1 (MetaData "OAuth2Token" "Network.OAuth.OAuth2.Internal" "hoauth2-1.9.0-2d8LWznYoULD03ddmwMyhZ" False) (C1 (MetaCons "OAuth2Token" PrefixI True) ((S1 (MetaSel (Just "accessToken") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 AccessToken) :*: S1 (MetaSel (Just "refreshToken") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (Maybe RefreshToken))) :*: (S1 (MetaSel (Just "expiresIn") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (Maybe Int)) :*: (S1 (MetaSel (Just "tokenType") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (Maybe Text)) :*: S1 (MetaSel (Just "idToken") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (Maybe IdToken))))))

parseIntFlexible :: Value -> Parser Int

data OAuth2Error a

Constructors

OAuth2Error

Fields

• error :: Either Text a
• errorDescription :: Maybe Text
• errorUri :: Maybe (URIRef Absolute)

Instances

Eq a => Eq (OAuth2Error a)

Defined in Network.OAuth.OAuth2.Internal

Methods

(==) :: OAuth2Error a -> OAuth2Error a -> Bool

(/=) :: OAuth2Error a -> OAuth2Error a -> Bool

Show a => Show (OAuth2Error a)

Defined in Network.OAuth.OAuth2.Internal

Methods

showsPrec :: Int -> OAuth2Error a -> ShowS

show :: OAuth2Error a -> String

showList :: [OAuth2Error a] -> ShowS

Generic (OAuth2Error a)

Defined in Network.OAuth.OAuth2.Internal

Associated Types

type Rep (OAuth2Error a) :: Type -> Type

Methods

from :: OAuth2Error a -> Rep (OAuth2Error a) x

to :: Rep (OAuth2Error a) x -> OAuth2Error a

ToJSON err => ToJSON (OAuth2Error err)

Defined in Network.OAuth.OAuth2.Internal

Methods

toJSON :: OAuth2Error err -> Value

toEncoding :: OAuth2Error err -> Encoding

toJSONList :: [OAuth2Error err] -> Value

toEncodingList :: [OAuth2Error err] -> Encoding

FromJSON err => FromJSON (OAuth2Error err)

Defined in Network.OAuth.OAuth2.Internal

Methods

parseJSON :: Value -> Parser (OAuth2Error err)

parseJSONList :: Value -> Parser [OAuth2Error err]

type Rep (OAuth2Error a)

Defined in Network.OAuth.OAuth2.Internal

type Rep (OAuth2Error a) = D1 (MetaData "OAuth2Error" "Network.OAuth.OAuth2.Internal" "hoauth2-1.9.0-2d8LWznYoULD03ddmwMyhZ" False) (C1 (MetaCons "OAuth2Error" PrefixI True) (S1 (MetaSel (Just "error") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (Either Text a)) :*: (S1 (MetaSel (Just "errorDescription") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (Maybe Text)) :*: S1 (MetaSel (Just "errorUri") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (Maybe (URIRef Absolute))))))

parseOAuth2Error :: FromJSON err => ByteString -> OAuth2Error err

mkDecodeOAuth2Error :: ByteString -> String -> OAuth2Error err

Types Synonym

type OAuth2Result err a = Either (OAuth2Error err) a

Is either Left containing an error or Right containg a result

type PostBody = [(ByteString, ByteString)]

type synonym of post body content

type QueryParams = [(ByteString, ByteString)]

URLs

authorizationUrl :: OAuth2 -> URI

Prepare the authorization URL. Redirect to this URL asking for user interactive authentication.

accessTokenUrl

Arguments

:: OAuth2

-> ExchangeToken

access code gained via authorization URL

-> (URI, PostBody)

access token request URL plus the request body.

Prepare the URL and the request body query for fetching an access token.

accessTokenUrl'

Arguments

:: OAuth2

-> ExchangeToken

access code gained via authorization URL

-> Maybe Text

Grant Type

-> (URI, PostBody)

access token request URL plus the request body.

Prepare the URL and the request body query for fetching an access token, with optional grant type.

refreshAccessTokenUrl

Arguments

:: OAuth2

-> RefreshToken

refresh token gained via authorization URL

-> (URI, PostBody)

refresh token request URL plus the request body.

Using a Refresh Token. Obtain a new access token by sending a refresh token to the Authorization server.

appendAccessToken

Arguments

:: URIRef a

Base URI

-> AccessToken

Authorized Access Token

-> URIRef a

Combined Result

For GET method API.

accessTokenToParam :: AccessToken -> [(ByteString, ByteString)]

Create QueryParams with given access token value.

appendQueryParams :: [(ByteString, ByteString)] -> URIRef a -> URIRef a

uriToRequest :: MonadThrow m => URI -> m Request

requestToUri :: Request -> URI

hostLens :: Lens' Request ByteString

portLens :: Lens' Request Int