Safe Haskell	Safe-Inferred
Language	GHC2021

Galley.Cassandra.LegalHold

Contents

Used by tests

Synopsis

interpretLegalHoldStoreToCassandra :: (Member (Embed IO) r, Member (Input ClientState) r, Member (Input Env) r, Member TinyLog r) => FeatureDefaults LegalholdConfig -> Sem (LegalHoldStore ': r) a -> Sem r a
isTeamLegalholdWhitelisted :: FeatureDefaults LegalholdConfig -> TeamId -> Client Bool
selectPendingPrekeys :: MonadClient m => UserId -> m (Maybe ([Prekey], LastPrekey))
validateServiceKey :: MonadIO m => ServiceKeyPEM -> m (Maybe (ServiceKey, Fingerprint Rsa))

Documentation

interpretLegalHoldStoreToCassandra :: (Member (Embed IO) r, Member (Input ClientState) r, Member (Input Env) r, Member TinyLog r) => FeatureDefaults LegalholdConfig -> Sem (LegalHoldStore ': r) a -> Sem r a Source #

isTeamLegalholdWhitelisted :: FeatureDefaults LegalholdConfig -> TeamId -> Client Bool Source #

Used by tests

selectPendingPrekeys :: MonadClient m => UserId -> m (Maybe ([Prekey], LastPrekey)) Source #

validateServiceKey :: MonadIO m => ServiceKeyPEM -> m (Maybe (ServiceKey, Fingerprint Rsa)) Source #

Copied unchanged from Brig.Provider.API. Interpret a service certificate and extract key and fingerprint. (This only has to be in MonadIO because the FFI in OpenSSL works like that.)

FUTUREWORK: It would be nice to move (part of) this to ssl-util, but it has types from brig-types and types-common.