mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-17 20:41:49 +03:00
18 lines
559 B
Haskell
18 lines
559 B
Haskell
|
-- | 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)
|