Swarm.Web.Auth

Authentication logic for Swarm tournament server.

Documentation

data GitHubCredentials

Constructors

GitHubCredentials

Fields

• clientId :: ByteString
• clientSecret :: ByteString

Instances

FromJSON GitHubCredentials

Defined in Swarm.Web.Auth

Methods

parseJSON :: Value -> Parser GitHubCredentials

parseJSONList :: Value -> Parser [GitHubCredentials]

omittedField :: Maybe GitHubCredentials

newtype TokenExchangeCode

Constructors

TokenExchangeCode ByteString

Instances

FromHttpApiData TokenExchangeCode

Defined in Swarm.Web.Auth

Methods

parseUrlPiece :: Text -> Either Text TokenExchangeCode

parseHeader :: ByteString -> Either Text TokenExchangeCode

parseQueryParam :: Text -> Either Text TokenExchangeCode

newtype AccessToken

Constructors

AccessToken ByteString

Instances

ToField AccessToken

Defined in Swarm.Web.Auth

Methods

toField :: AccessToken -> SQLData

newtype RefreshToken

Constructors

RefreshToken ByteString

Instances

ToField RefreshToken

Defined in Swarm.Web.Auth

Methods

toField :: RefreshToken -> SQLData

data UserApiResponse

Constructors

UserApiResponse

Fields

• login :: Text
• id :: Int
• name :: Text

Instances

FromJSON UserApiResponse

Defined in Swarm.Web.Auth

Methods

parseJSON :: Value -> Parser UserApiResponse

parseJSONList :: Value -> Parser [UserApiResponse]

omittedField :: Maybe UserApiResponse

Generic UserApiResponse

Defined in Swarm.Web.Auth

Associated Types

type Rep UserApiResponse :: Type -> Type

Methods

from :: UserApiResponse -> Rep UserApiResponse x

to :: Rep UserApiResponse x -> UserApiResponse

type Rep UserApiResponse

Defined in Swarm.Web.Auth

type Rep UserApiResponse = D1 ('MetaData "UserApiResponse" "Swarm.Web.Auth" "swarm-0.6.0.0-ERx1HMcRMba59aI2b6aNrS-swarm-tournament" 'False) (C1 ('MetaCons "UserApiResponse" 'PrefixI 'True) (S1 ('MetaSel ('Just "login") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: (S1 ('MetaSel ('Just "id") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int) :*: S1 ('MetaSel ('Just "name") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text))))

data Expirable a

Constructors

Expirable

Fields

• token :: a
• expirationSeconds :: Int

fetchAuthenticatedUser :: (MonadIO m, MonadThrow m, MonadFail m) => Manager -> AccessToken -> m UserApiResponse

data ReceivedTokens

Constructors

ReceivedTokens

Fields

• accessToken :: Expirable AccessToken
• refreshToken :: Expirable RefreshToken

packExchangeResponse :: Map ByteString ByteString -> Maybe ReceivedTokens

exchangeCode :: (MonadIO m, MonadThrow m, MonadFail m) => Manager -> GitHubCredentials -> TokenExchangeCode -> m ReceivedTokens