Google.Cloud.Internal.Types

Documentation

data Handle

Constructors

Handle

Fields

hManager :: !Manager

Shared HTTP manager.

hToken :: !(TVar (Maybe Token))

Cache for the access token. Use accessToken when within the Cloud monad to access the token. That function will automatically refresh it when it is about to expire.

hFetchToken :: !(Cloud Token)

The action which is used to fetch a fresh access token.

Instances

MonadReader Handle Cloud

data Token

Constructors

Token

Fields

tokenExpiresAt :: !UTCTime

tokenValue :: !Text

Instances

Show Token

data Error

Constructors

UnknownError !Text

IOError !String

DecodeError !String

Instances

Show Error

MonadError Error Cloud

newtype Cloud a

Constructors

Cloud

Fields

runCloud :: ReaderT Handle (ExceptT Error IO) a

Instances

Monad Cloud

Functor Cloud

Applicative Cloud

Alternative Cloud

MonadIO Cloud

MonadError Error Cloud

MonadReader Handle Cloud

evalCloud :: Handle -> Cloud a -> IO (Either Error a)

Evaluate a Cloud action and return either the Error or the result.

transformException :: (SomeException -> Error) -> SomeException -> IO Error

Transform an synchronous exception into an Error. Async exceptions are left untouched and propagated into the IO monad.

cloudIO :: IO a -> Cloud a

Run an IO action inside the Cloud monad, catch all synchronous exceptions and transform them into Errors.

retry :: Cloud a -> Cloud a

Retry a Cloud action multiple times before failing for good.

TODO: Make the retry count configurable