Safe Haskell | Safe-Inferred |
---|---|
Language | GHC2021 |
Synopsis
- guardQualifiedLegalholdPolicyConflicts :: (Member BrigAccess r, Member (Error LegalholdConflicts) r, Member (Input (Local ())) r, Member (Input Opts) r, Member TeamStore r, Member TinyLog r) => LegalholdProtectee -> QualifiedUserClients -> Sem r ()
- guardLegalholdPolicyConflicts :: (Member BrigAccess r, Member (Error LegalholdConflicts) r, Member (Input Opts) r, Member TeamStore r, Member TinyLog r) => LegalholdProtectee -> UserClients -> Sem r ()
- data LegalholdConflicts = LegalholdConflicts
- data LegalholdConflictsOldClients = LegalholdConflictsOldClients
Documentation
guardQualifiedLegalholdPolicyConflicts :: (Member BrigAccess r, Member (Error LegalholdConflicts) r, Member (Input (Local ())) r, Member (Input Opts) r, Member TeamStore r, Member TinyLog r) => LegalholdProtectee -> QualifiedUserClients -> Sem r () Source #
guardLegalholdPolicyConflicts :: (Member BrigAccess r, Member (Error LegalholdConflicts) r, Member (Input Opts) r, Member TeamStore r, Member TinyLog r) => LegalholdProtectee -> UserClients -> Sem r () Source #
If user has legalhold status no_consent
or has client devices that have no legalhold
capability, and some of the clients she is about to get connected are LH devices, respond
with 412 and do not process notification.
This is a fallback safeguard that shouldn't get triggered if backend and clients work as intended.