integration-0.1.0

Safe Haskell	None
Language	GHC2021

Testlib.ResourcePool

Documentation

data ResourcePool a Source #

data BackendResource Source #

Constructors

BackendResource

Fields

berName :: BackendName
berBrigKeyspace :: String
berGalleyKeyspace :: String
berSparKeyspace :: String
berGundeckKeyspace :: String
berElasticsearchIndex :: String
berPostgresqlDBName :: String
berFederatorInternal :: Word16
berFederatorExternal :: Word16
berDomain :: String
berAwsUserJournalQueue :: String
berAwsPrekeyTable :: String
berAwsS3Bucket :: String
berAwsQueueName :: String
berBrigInternalEvents :: String
berEmailSMSSesQueue :: String
berEmailSMSEmailSender :: String
berGalleyJournal :: String
berVHost :: String
berNginzSslPort :: Word16
berNginzHttp2Port :: Word16
berInternalServicePorts :: forall a. Num a => Service -> a
berEnableService :: Service -> Bool
A disabled service is started anyway, but not configured in the other services.
berMlsPrivateKeyPaths :: Value

Instances

Instances details

Eq BackendResource Source #
Instance details Defined in Testlib.Types Methods (==) :: BackendResource -> BackendResource -> Bool # (/=) :: BackendResource -> BackendResource -> Bool #
Ord BackendResource Source #
Instance details Defined in Testlib.Types Methods compare :: BackendResource -> BackendResource -> Ordering # (<) :: BackendResource -> BackendResource -> Bool # (<=) :: BackendResource -> BackendResource -> Bool # (>) :: BackendResource -> BackendResource -> Bool # (>=) :: BackendResource -> BackendResource -> Bool # max :: BackendResource -> BackendResource -> BackendResource # min :: BackendResource -> BackendResource -> BackendResource #

data DynamicBackendConfig Source #

Constructors

DynamicBackendConfig
Fields domain :: String federatorExternalPort :: Word16 mlsPrivateKeyPaths :: Value

Instances

Instances details

FromJSON DynamicBackendConfig Source #

Instance details

Defined in Testlib.Types

Methods

parseJSON :: Value -> Parser DynamicBackendConfig Source #

parseJSONList :: Value -> Parser [DynamicBackendConfig] Source #

omittedField :: Maybe DynamicBackendConfig Source #

Generic DynamicBackendConfig Source #

Instance details

Defined in Testlib.Types

Associated Types

type Rep DynamicBackendConfig

Instance details

Defined in Testlib.Types

type Rep DynamicBackendConfig = D1 ('MetaData "DynamicBackendConfig" "Testlib.Types" "integration-0.1.0-5MT0lWfV3pfH7esw2kEiZw" 'False) (C1 ('MetaCons "DynamicBackendConfig" 'PrefixI 'True) (S1 ('MetaSel ('Just "domain") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String) :*: (S1 ('MetaSel ('Just "federatorExternalPort") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word16) :*: S1 ('MetaSel ('Just "mlsPrivateKeyPaths") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Value))))

Methods

from :: DynamicBackendConfig -> Rep DynamicBackendConfig x #

to :: Rep DynamicBackendConfig x -> DynamicBackendConfig #

Show DynamicBackendConfig Source #

Instance details

Defined in Testlib.Types

Methods

showsPrec :: Int -> DynamicBackendConfig -> ShowS #

show :: DynamicBackendConfig -> String #

showList :: [DynamicBackendConfig] -> ShowS #

type Rep DynamicBackendConfig Source #

Instance details

Defined in Testlib.Types

type Rep DynamicBackendConfig = D1 ('MetaData "DynamicBackendConfig" "Testlib.Types" "integration-0.1.0-5MT0lWfV3pfH7esw2kEiZw" 'False) (C1 ('MetaCons "DynamicBackendConfig" 'PrefixI 'True) (S1 ('MetaSel ('Just "domain") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String) :*: (S1 ('MetaSel ('Just "federatorExternalPort") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Word16) :*: S1 ('MetaSel ('Just "mlsPrivateKeyPaths") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Value))))

resourceServiceMap :: BackendResource -> ServiceMap Source #

backendResources :: [DynamicBackendConfig] -> [BackendResource] Source #

createBackendResourcePool :: [BackendResource] -> RabbitMqAdminOpts -> ClientState -> IO (ResourcePool BackendResource) Source #

acquireResources :: forall (m :: Type -> Type) a. (Ord a, MonadIO m, MonadMask m, HasCallStack) => Int -> ResourcePool a -> Codensity m [a] Source #