| Safe Haskell | Safe-Inferred |
|---|---|
| Language | GHC2021 |
Galley.External.LegalHoldService
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) => TeamId -> UserId -> Sem r NewLegalHoldClient
- confirmLegalHold :: (Member (ErrorS 'LegalHoldServiceNotRegistered) r, Member LegalHoldStore r) => ClientId -> TeamId -> UserId -> OpaqueAuthToken -> Sem r ()
- removeLegalHold :: (Member (ErrorS 'LegalHoldServiceNotRegistered) r, Member LegalHoldStore r) => TeamId -> 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) => TeamId -> UserId -> Sem r NewLegalHoldClient Source #
POST /initiate.
Arguments
| :: (Member (ErrorS 'LegalHoldServiceNotRegistered) r, Member LegalHoldStore r) | |
| => ClientId | |
| -> TeamId | |
| -> 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 LegalHoldStore r) => TeamId -> 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 #