mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-23 07:22:53 +03:00
20 lines
596 B
Haskell
20 lines
596 B
Haskell
|
{-# LANGUAGE NumericUnderscores #-}
|
||
|
|
|
||
|
|
-- | Interface for a service for maintaining short-lived credentials, such as
|
||
|
|
-- access tokens or JWTs.
|
||
|
|
module Hasura.CredentialCache
|
||
|
|
( CredentialCache (..),
|
||
|
|
)
|
||
|
|
where
|
||
|
|
|
||
|
|
import Control.Concurrent.STM
|
||
|
|
import Hasura.Prelude
|
||
|
|
|
||
|
|
newtype CredentialCache cred = CredentialCache
|
||
|
|
{ -- | Get the stored credential. Also returns an STM action for
|
||
|
|
-- requesting a refresh of the credential, which, in turn, returns an STM
|
||
|
|
-- action for waiting on the arrival of the fresh credential.
|
||
|
|
getCredential :: STM (cred, STM (STM ()))
|
||
|
|
}
|
||
|
|
deriving stock (Functor)
|