neptune-backend-0.3.0: Neptune Client

Copyright	(c) Jiasen Wu 2020
License	BSD-3-Clause
Safe Haskell	None
Language	Haskell2010

Neptune.OAuth

Description

Synopsis

data OAuth2Session = OAuth2Session {
- _oas_client_id :: Text
- _oas_access_token :: Text
- _oas_refresh_token :: Text
- _oas_expires_in :: NominalDiffTime
- _oas_refresh_url :: Text
}
oas_refresh_url :: Lens' OAuth2Session Text
oas_refresh_token :: Lens' OAuth2Session Text
oas_expires_in :: Lens' OAuth2Session NominalDiffTime
oas_client_id :: Lens' OAuth2Session Text
oas_access_token :: Lens' OAuth2Session Text
oauth2Setup :: Text -> Text -> IO (ThreadId, MVar OAuth2Session)
oauthRefresher :: MVar OAuth2Session -> IO ()

Documentation

data OAuth2Session Source #

Constructors

OAuth2Session
Fields _oas_client_id :: Text _oas_access_token :: Text access token for APIs _oas_refresh_token :: Text refresh token after expires _oas_expires_in :: NominalDiffTime duration in which the access token is valid _oas_refresh_url :: Text refresh url

oas_refresh_url :: Lens' OAuth2Session Text Source #

oas_refresh_token :: Lens' OAuth2Session Text Source #

oas_expires_in :: Lens' OAuth2Session NominalDiffTime Source #

oas_client_id :: Lens' OAuth2Session Text Source #

oas_access_token :: Lens' OAuth2Session Text Source #

oauth2Setup :: Text -> Text -> IO (ThreadId, MVar OAuth2Session) Source #

Setup a background thread to refresh OAuth2 token.

oauthRefresher :: MVar OAuth2Session -> IO () Source #