Safe Haskell	None
Language	Haskell2010

Auth

Synopsis

Documentation

We split out the API here because we don't want the Github Callback to be exported for the frontend to call directly.

type FrontendAPI = ("oauth" :> ((BrowserHeader "Cookie" Text :> ("status" :> Get '[JSON] AuthStatus)) :<|> ("github" :> GetRedirect (Headers '[Header "Location" Text])))) :<|> (BrowserHeader "Cookie" Text :> ("gists" :> GistAPI)) Source #

Instances details

Eq AuthStatus Source #
Instance details Defined in Auth Methods (==) :: AuthStatus -> AuthStatus -> Bool Source # (/=) :: AuthStatus -> AuthStatus -> Bool Source #
Show AuthStatus Source #
Instance details Defined in Auth Methods showsPrec :: Int -> AuthStatus -> ShowS Source # show :: AuthStatus -> String Source # showList :: [AuthStatus] -> ShowS Source #
Generic AuthStatus Source #
Instance details Defined in Auth Associated Types type Rep AuthStatus :: Type -> Type Source # Methods from :: AuthStatus -> Rep AuthStatus x Source # to :: Rep AuthStatus x -> AuthStatus Source #
ToJSON AuthStatus Source #
Instance details Defined in Auth Methods toJSON :: AuthStatus -> Value Source # toEncoding :: AuthStatus -> Encoding Source # toJSONList :: [AuthStatus] -> Value Source # toEncodingList :: [AuthStatus] -> Encoding Source #
FromJSON AuthStatus Source #
Instance details Defined in Auth Methods parseJSON :: Value -> Parser AuthStatus Source # parseJSONList :: Value -> Parser [AuthStatus] Source #
type Rep AuthStatus Source #
Instance details Defined in Auth type Rep AuthStatus = D1 ('MetaData "AuthStatus" "Auth" "playground-common-1.1.0.0-BGIv25EIALK13vHpc6sZbN" 'True) (C1 ('MetaCons "AuthStatus" 'PrefixI 'True) (S1 ('MetaSel ('Just "_authStatusAuthRole") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 AuthRole)))

Instances details

Eq AuthRole Source #
Instance details Defined in Auth Methods (==) :: AuthRole -> AuthRole -> Bool Source # (/=) :: AuthRole -> AuthRole -> Bool Source #
Show AuthRole Source #
Instance details Defined in Auth Methods showsPrec :: Int -> AuthRole -> ShowS Source # show :: AuthRole -> String Source # showList :: [AuthRole] -> ShowS Source #
Generic AuthRole Source #
Instance details Defined in Auth Associated Types type Rep AuthRole :: Type -> Type Source # Methods from :: AuthRole -> Rep AuthRole x Source # to :: Rep AuthRole x -> AuthRole Source #
ToJSON AuthRole Source #
Instance details Defined in Auth Methods toJSON :: AuthRole -> Value Source # toEncoding :: AuthRole -> Encoding Source # toJSONList :: [AuthRole] -> Value Source # toEncodingList :: [AuthRole] -> Encoding Source #
FromJSON AuthRole Source #
Instance details Defined in Auth Methods parseJSON :: Value -> Parser AuthRole Source # parseJSONList :: Value -> Parser [AuthRole] Source #
type Rep AuthRole Source #
Instance details Defined in Auth type Rep AuthRole = D1 ('MetaData "AuthRole" "Auth" "playground-common-1.1.0.0-BGIv25EIALK13vHpc6sZbN" 'False) (C1 ('MetaCons "Anonymous" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "GithubUser" 'PrefixI 'False) (U1 :: Type -> Type))

Config supplied at runtime.

Constructors

Config
Fields _configJWTSignature :: !EncodeSigner _configFrontendUrl :: !Text _configGithubCbPath :: !Text _configGithubClientId :: !OAuthClientId _configGithubClientSecret :: !OAuthClientSecret

Instances details

FromJSON Config Source #
Instance details Defined in Auth Methods parseJSON :: Value -> Parser Config Source # parseJSONList :: Value -> Parser [Config] Source #

Config determined by Github.