Safe Haskell | Safe-Inferred |
---|---|
Language | GHC2021 |
Synopsis
- data LegalHoldStore m a where
- CreateSettings :: LegalHoldService -> LegalHoldStore m ()
- GetSettings :: TeamId -> LegalHoldStore m (Maybe LegalHoldService)
- RemoveSettings :: TeamId -> LegalHoldStore m ()
- InsertPendingPrekeys :: UserId -> [Prekey] -> LegalHoldStore m ()
- SelectPendingPrekeys :: UserId -> LegalHoldStore m (Maybe ([Prekey], LastPrekey))
- DropPendingPrekeys :: UserId -> LegalHoldStore m ()
- SetUserLegalHoldStatus :: TeamId -> UserId -> UserLegalHoldStatus -> LegalHoldStore m ()
- SetTeamLegalholdWhitelisted :: TeamId -> LegalHoldStore m ()
- UnsetTeamLegalholdWhitelisted :: TeamId -> LegalHoldStore m ()
- IsTeamLegalholdWhitelisted :: TeamId -> LegalHoldStore m Bool
- MakeVerifiedRequestFreshManager :: Fingerprint Rsa -> HttpsUrl -> (Request -> Request) -> LegalHoldStore m (Response ByteString)
- MakeVerifiedRequest :: Fingerprint Rsa -> HttpsUrl -> (Request -> Request) -> LegalHoldStore m (Response ByteString)
- ValidateServiceKey :: ServiceKeyPEM -> LegalHoldStore m (Maybe (ServiceKey, Fingerprint Rsa))
- createSettings :: forall r. Member LegalHoldStore r => LegalHoldService -> Sem r ()
- getSettings :: forall r. Member LegalHoldStore r => TeamId -> Sem r (Maybe LegalHoldService)
- removeSettings :: forall r. Member LegalHoldStore r => TeamId -> Sem r ()
- insertPendingPrekeys :: forall r. Member LegalHoldStore r => UserId -> [Prekey] -> Sem r ()
- selectPendingPrekeys :: forall r. Member LegalHoldStore r => UserId -> Sem r (Maybe ([Prekey], LastPrekey))
- dropPendingPrekeys :: forall r. Member LegalHoldStore r => UserId -> Sem r ()
- setUserLegalHoldStatus :: forall r. Member LegalHoldStore r => TeamId -> UserId -> UserLegalHoldStatus -> Sem r ()
- setTeamLegalholdWhitelisted :: forall r. Member LegalHoldStore r => TeamId -> Sem r ()
- unsetTeamLegalholdWhitelisted :: forall r. Member LegalHoldStore r => TeamId -> Sem r ()
- isTeamLegalholdWhitelisted :: forall r. Member LegalHoldStore r => TeamId -> Sem r Bool
- validateServiceKey :: forall r. Member LegalHoldStore r => ServiceKeyPEM -> Sem r (Maybe (ServiceKey, Fingerprint Rsa))
- makeVerifiedRequest :: forall r. Member LegalHoldStore r => Fingerprint Rsa -> HttpsUrl -> (Request -> Request) -> Sem r (Response ByteString)
- makeVerifiedRequestFreshManager :: forall r. Member LegalHoldStore r => Fingerprint Rsa -> HttpsUrl -> (Request -> Request) -> Sem r (Response ByteString)
LegalHold store effect
data LegalHoldStore m a where Source #
CreateSettings :: LegalHoldService -> LegalHoldStore m () | |
GetSettings :: TeamId -> LegalHoldStore m (Maybe LegalHoldService) | |
RemoveSettings :: TeamId -> LegalHoldStore m () | |
InsertPendingPrekeys :: UserId -> [Prekey] -> LegalHoldStore m () | |
SelectPendingPrekeys :: UserId -> LegalHoldStore m (Maybe ([Prekey], LastPrekey)) | |
DropPendingPrekeys :: UserId -> LegalHoldStore m () | |
SetUserLegalHoldStatus :: TeamId -> UserId -> UserLegalHoldStatus -> LegalHoldStore m () | |
SetTeamLegalholdWhitelisted :: TeamId -> LegalHoldStore m () | |
UnsetTeamLegalholdWhitelisted :: TeamId -> LegalHoldStore m () | |
IsTeamLegalholdWhitelisted :: TeamId -> LegalHoldStore m Bool | |
MakeVerifiedRequestFreshManager :: Fingerprint Rsa -> HttpsUrl -> (Request -> Request) -> LegalHoldStore m (Response ByteString) | |
MakeVerifiedRequest :: Fingerprint Rsa -> HttpsUrl -> (Request -> Request) -> LegalHoldStore m (Response ByteString) | |
ValidateServiceKey :: ServiceKeyPEM -> LegalHoldStore m (Maybe (ServiceKey, Fingerprint Rsa)) |
Store actions
createSettings :: forall r. Member LegalHoldStore r => LegalHoldService -> Sem r () Source #
getSettings :: forall r. Member LegalHoldStore r => TeamId -> Sem r (Maybe LegalHoldService) Source #
removeSettings :: forall r. Member LegalHoldStore r => TeamId -> Sem r () Source #
insertPendingPrekeys :: forall r. Member LegalHoldStore r => UserId -> [Prekey] -> Sem r () Source #
selectPendingPrekeys :: forall r. Member LegalHoldStore r => UserId -> Sem r (Maybe ([Prekey], LastPrekey)) Source #
dropPendingPrekeys :: forall r. Member LegalHoldStore r => UserId -> Sem r () Source #
setUserLegalHoldStatus :: forall r. Member LegalHoldStore r => TeamId -> UserId -> UserLegalHoldStatus -> Sem r () Source #
setTeamLegalholdWhitelisted :: forall r. Member LegalHoldStore r => TeamId -> Sem r () Source #
unsetTeamLegalholdWhitelisted :: forall r. Member LegalHoldStore r => TeamId -> Sem r () Source #
isTeamLegalholdWhitelisted :: forall r. Member LegalHoldStore r => TeamId -> Sem r Bool Source #
validateServiceKey :: forall r. Member LegalHoldStore r => ServiceKeyPEM -> Sem r (Maybe (ServiceKey, Fingerprint Rsa)) Source #
Intra actions
makeVerifiedRequest :: forall r. Member LegalHoldStore r => Fingerprint Rsa -> HttpsUrl -> (Request -> Request) -> Sem r (Response ByteString) Source #
makeVerifiedRequestFreshManager :: forall r. Member LegalHoldStore r => Fingerprint Rsa -> HttpsUrl -> (Request -> Request) -> Sem r (Response ByteString) Source #