Safe Haskell | Safe-Inferred |
---|---|
Language | GHC2021 |
Synopsis
- checkLegalHoldServiceStatus :: (Member (ErrorS 'LegalHoldServiceBadResponse) r, Member LegalHoldStore r, Member TinyLog r) => Fingerprint Rsa -> HttpsUrl -> Sem r ()
- requestNewDevice :: (Member (ErrorS 'LegalHoldServiceBadResponse) r, Member (ErrorS 'LegalHoldServiceNotRegistered) r, Member LegalHoldStore r, Member TinyLog r, Member (Embed IO) r) => TeamId -> Local UserId -> Sem r NewLegalHoldClient
- confirmLegalHold :: (Member (ErrorS 'LegalHoldServiceNotRegistered) r, Member TinyLog r, Member LegalHoldStore r, Member (Embed IO) r) => ClientId -> TeamId -> Local UserId -> OpaqueAuthToken -> Sem r ()
- removeLegalHold :: (Member (ErrorS 'LegalHoldServiceNotRegistered) r, Member TinyLog r, Member LegalHoldStore r, Member (Embed IO) r) => TeamId -> Local UserId -> Sem r ()
- validateServiceKey :: forall r. Member LegalHoldStore r => ServiceKeyPEM -> Sem r (Maybe (ServiceKey, Fingerprint Rsa))
api
checkLegalHoldServiceStatus :: (Member (ErrorS 'LegalHoldServiceBadResponse) r, Member LegalHoldStore r, Member TinyLog r) => Fingerprint Rsa -> HttpsUrl -> Sem r () Source #
Get /status from legal hold service; throw Error
if things go wrong.
requestNewDevice :: (Member (ErrorS 'LegalHoldServiceBadResponse) r, Member (ErrorS 'LegalHoldServiceNotRegistered) r, Member LegalHoldStore r, Member TinyLog r, Member (Embed IO) r) => TeamId -> Local UserId -> Sem r NewLegalHoldClient Source #
POST /initiate
.
:: (Member (ErrorS 'LegalHoldServiceNotRegistered) r, Member TinyLog r, Member LegalHoldStore r, Member (Embed IO) r) | |
=> ClientId | |
-> TeamId | |
-> Local UserId | |
-> OpaqueAuthToken | TODO: Replace with |
-> Sem r () |
POST /confirm
Confirm that a device has been linked to a user and provide an authorization token
removeLegalHold :: (Member (ErrorS 'LegalHoldServiceNotRegistered) r, Member TinyLog r, Member LegalHoldStore r, Member (Embed IO) r) => TeamId -> Local UserId -> Sem r () Source #
POST /remove
Inform the LegalHold Service that a user's legalhold has been disabled.
helpers
validateServiceKey :: forall r. Member LegalHoldStore r => ServiceKeyPEM -> Sem r (Maybe (ServiceKey, Fingerprint Rsa)) Source #