Safe Haskell | Safe-Inferred |
---|---|
Language | GHC2021 |
Synopsis
- createBindingTeam :: (Member NotificationSubsystem r, Member (Input UTCTime) r, Member (Input Opts) r, Member TeamFeatureStore r, Member TeamStore r) => TeamId -> UserId -> NewTeam -> Sem r TeamId
- createNonBindingTeamH :: Member (ErrorS InvalidAction) r => UserId -> ConnId -> a -> Sem r TeamId
- updateTeamH :: (Member (ErrorS 'NotATeamMember) r, Member (ErrorS ('MissingPermission ('Just 'SetTeamData))) r, Member NotificationSubsystem r, Member (Input UTCTime) r, Member TeamStore r) => UserId -> ConnId -> TeamId -> TeamUpdateData -> Sem r ()
- updateTeamStatus :: (Member BrigAccess r, Member (ErrorS 'InvalidTeamStatusUpdate) r, Member (ErrorS 'TeamNotFound) r, Member (Input UTCTime) r, Member TeamStore r) => TeamId -> TeamStatusUpdate -> Sem r ()
- getTeamH :: forall r. (Member (ErrorS 'TeamNotFound) r, Member (Queue DeleteItem) r, Member TeamStore r) => UserId -> TeamId -> Sem r Team
- getTeamInternalH :: (Member (ErrorS 'TeamNotFound) r, Member TeamStore r) => TeamId -> Sem r TeamData
- getTeamNameInternalH :: (Member (ErrorS 'TeamNotFound) r, Member TeamStore r) => TeamId -> Sem r TeamName
- getBindingTeamMembers :: (Member (ErrorS 'TeamNotFound) r, Member (ErrorS 'NonBindingTeam) r, Member TeamStore r) => UserId -> Sem r TeamMemberList
- getManyTeams :: (Member TeamStore r, Member (Queue DeleteItem) r, Member (ListItems LegacyPaging TeamId) r) => UserId -> Sem r TeamList
- deleteTeam :: forall r. (Member BrigAccess r, Member (Error AuthenticationError) r, Member (ErrorS 'DeleteQueueFull) r, Member (ErrorS 'NotATeamMember) r, Member (ErrorS OperationDenied) r, Member (ErrorS 'TeamNotFound) r, Member (Queue DeleteItem) r, Member TeamStore r) => UserId -> ConnId -> TeamId -> TeamDeleteData -> Sem r ()
- uncheckedDeleteTeam :: forall r. (Member BrigAccess r, Member ExternalAccess r, Member NotificationSubsystem r, Member (Input Opts) r, Member (Input UTCTime) r, Member LegalHoldStore r, Member MemberStore r, Member SparAccess r, Member TeamStore r) => Local UserId -> Maybe ConnId -> TeamId -> Sem r ()
- addTeamMember :: forall r. (Member BrigAccess r, Member NotificationSubsystem r, Member (ErrorS 'InvalidPermissions) r, Member (ErrorS 'NoAddToBinding) r, Member (ErrorS 'NotATeamMember) r, Member (ErrorS 'NotConnected) r, Member (ErrorS OperationDenied) r, Member (ErrorS 'TeamNotFound) r, Member (ErrorS 'TooManyTeamMembers) r, Member (ErrorS 'TooManyTeamAdmins) r, Member (ErrorS 'UserBindingExists) r, Member (ErrorS 'TooManyTeamMembersOnTeamWithLegalhold) r, Member (Input Opts) r, Member (Input UTCTime) r, Member LegalHoldStore r, Member TeamFeatureStore r, Member TeamNotificationStore r, Member TeamStore r, Member TinyLog r) => Local UserId -> ConnId -> TeamId -> NewTeamMember -> Sem r ()
- getTeamConversationRoles :: (Member (ErrorS 'NotATeamMember) r, Member TeamStore r) => UserId -> TeamId -> Sem r ConversationRolesList
- getTeamMembers :: (Member (ErrorS 'NotATeamMember) r, Member TeamStore r, Member (TeamMemberStore CassandraPaging) r) => Local UserId -> TeamId -> Maybe (Range 1 HardTruncationLimit Int32) -> Maybe TeamMembersPagingState -> Sem r TeamMembersPage
- bulkGetTeamMembers :: (Member (ErrorS 'BulkGetMemberLimitExceeded) r, Member (ErrorS 'NotATeamMember) r, Member TeamStore r) => Local UserId -> TeamId -> Maybe (Range 1 HardTruncationLimit Int32) -> UserIdList -> Sem r TeamMemberListOptPerms
- getTeamMember :: (Member (ErrorS 'TeamMemberNotFound) r, Member (ErrorS 'NotATeamMember) r, Member TeamStore r) => Local UserId -> TeamId -> UserId -> Sem r TeamMemberOptPerms
- deleteTeamMember :: (Member BackendNotificationQueueAccess r, Member BrigAccess r, Member ConversationStore r, Member (Error AuthenticationError) r, Member (Error FederationError) r, Member (Error InvalidInput) r, Member (ErrorS 'AccessDenied) r, Member (ErrorS 'TeamMemberNotFound) r, Member (ErrorS 'TeamNotFound) r, Member (ErrorS 'NotATeamMember) r, Member (ErrorS OperationDenied) r, Member ExternalAccess r, Member (Input Opts) r, Member (Input UTCTime) r, Member NotificationSubsystem r, Member MemberStore r, Member TeamFeatureStore r, Member TeamStore r, Member TinyLog r) => Local UserId -> ConnId -> TeamId -> UserId -> TeamMemberDeleteData -> Sem r TeamMemberDeleteResult
- deleteNonBindingTeamMember :: (Member BackendNotificationQueueAccess r, Member BrigAccess r, Member ConversationStore r, Member (Error AuthenticationError) r, Member (Error FederationError) r, Member (Error InvalidInput) r, Member (ErrorS 'AccessDenied) r, Member (ErrorS 'TeamMemberNotFound) r, Member (ErrorS 'TeamNotFound) r, Member (ErrorS 'NotATeamMember) r, Member (ErrorS OperationDenied) r, Member ExternalAccess r, Member (Input Opts) r, Member (Input UTCTime) r, Member NotificationSubsystem r, Member MemberStore r, Member TeamFeatureStore r, Member TeamStore r, Member TinyLog r) => Local UserId -> ConnId -> TeamId -> UserId -> Sem r TeamMemberDeleteResult
- updateTeamMember :: forall r. (Member BrigAccess r, Member (ErrorS 'AccessDenied) r, Member (ErrorS 'InvalidPermissions) r, Member (ErrorS 'TeamNotFound) r, Member (ErrorS 'TeamMemberNotFound) r, Member (ErrorS 'TooManyTeamAdmins) r, Member (ErrorS 'NotATeamMember) r, Member (ErrorS OperationDenied) r, Member NotificationSubsystem r, Member (Input UTCTime) r, Member TinyLog r, Member TeamStore r) => Local UserId -> ConnId -> TeamId -> NewTeamMember -> Sem r ()
- getTeamConversations :: (Member (ErrorS 'NotATeamMember) r, Member (ErrorS OperationDenied) r, Member TeamStore r) => UserId -> TeamId -> Sem r TeamConversationList
- getTeamConversation :: (Member (ErrorS 'ConvNotFound) r, Member (ErrorS 'NotATeamMember) r, Member (ErrorS OperationDenied) r, Member TeamStore r) => UserId -> TeamId -> ConvId -> Sem r TeamConversation
- deleteTeamConversation :: (Member BackendNotificationQueueAccess r, Member BrigAccess r, Member CodeStore r, Member ConversationStore r, Member (Error FederationError) r, Member (ErrorS 'ConvNotFound) r, Member (ErrorS 'InvalidOperation) r, Member (ErrorS 'NotATeamMember) r, Member (ErrorS ('ActionDenied 'DeleteConversation)) r, Member FederatorAccess r, Member MemberStore r, Member ProposalStore r, Member ExternalAccess r, Member NotificationSubsystem r, Member (Input UTCTime) r, Member SubConversationStore r, Member TeamStore r) => Local UserId -> ConnId -> TeamId -> ConvId -> Sem r ()
- getSearchVisibility :: (Member (ErrorS 'NotATeamMember) r, Member (ErrorS OperationDenied) r, Member SearchVisibilityStore r, Member TeamStore r) => Local UserId -> TeamId -> Sem r TeamSearchVisibilityView
- setSearchVisibility :: forall r. (Member (ErrorS 'NotATeamMember) r, Member (ErrorS OperationDenied) r, Member (ErrorS 'TeamSearchVisibilityNotEnabled) r, Member SearchVisibilityStore r, Member TeamStore r) => (TeamId -> Sem r Bool) -> Local UserId -> TeamId -> TeamSearchVisibilityView -> Sem r ()
- getSearchVisibilityInternal :: Member SearchVisibilityStore r => TeamId -> Sem r TeamSearchVisibilityView
- setSearchVisibilityInternal :: forall r. (Member (ErrorS 'TeamSearchVisibilityNotEnabled) r, Member SearchVisibilityStore r) => (TeamId -> Sem r Bool) -> TeamId -> TeamSearchVisibilityView -> Sem r ()
- uncheckedAddTeamMember :: forall r. (Member BrigAccess r, Member NotificationSubsystem r, Member (ErrorS 'TooManyTeamMembers) r, Member (ErrorS 'TooManyTeamAdmins) r, Member (ErrorS 'TooManyTeamMembersOnTeamWithLegalhold) r, Member (Input Opts) r, Member (Input UTCTime) r, Member LegalHoldStore r, Member TinyLog r, Member TeamFeatureStore r, Member TeamNotificationStore r, Member TeamStore r) => TeamId -> NewTeamMember -> Sem r ()
- uncheckedGetTeamMember :: (Member (ErrorS 'TeamMemberNotFound) r, Member TeamStore r) => TeamId -> UserId -> Sem r TeamMember
- uncheckedGetTeamMembersH :: Member TeamStore r => TeamId -> Maybe (Range 1 HardTruncationLimit Int32) -> Sem r TeamMemberList
- uncheckedDeleteTeamMember :: forall r. (Member BackendNotificationQueueAccess r, Member ConversationStore r, Member NotificationSubsystem r, Member (Error FederationError) r, Member ExternalAccess r, Member (Input UTCTime) r, Member MemberStore r, Member TeamStore r) => Local UserId -> Maybe ConnId -> TeamId -> UserId -> Either [UserId] TeamMemberList -> Sem r ()
- uncheckedUpdateTeamMember :: forall r. (Member BrigAccess r, Member (ErrorS 'TeamNotFound) r, Member (ErrorS 'TeamMemberNotFound) r, Member (ErrorS 'TooManyTeamAdmins) r, Member NotificationSubsystem r, Member (Input UTCTime) r, Member TinyLog r, Member TeamStore r) => Maybe (Local UserId) -> Maybe ConnId -> TeamId -> NewTeamMember -> Sem r ()
- userIsTeamOwner :: (Member (ErrorS 'TeamMemberNotFound) r, Member (ErrorS 'AccessDenied) r, Member (ErrorS 'NotATeamMember) r, Member (Input (Local ())) r, Member TeamStore r) => TeamId -> UserId -> Sem r ()
- canUserJoinTeam :: forall r. (Member BrigAccess r, Member LegalHoldStore r, Member TeamStore r, Member TeamFeatureStore r, Member (ErrorS 'TooManyTeamMembersOnTeamWithLegalhold) r) => TeamId -> Sem r ()
- ensureNotTooLargeForLegalHold :: forall r. (Member LegalHoldStore r, Member TeamStore r, Member TeamFeatureStore r, Member (ErrorS 'TooManyTeamMembersOnTeamWithLegalhold) r) => TeamId -> Int -> Sem r ()
- ensureNotTooLargeToActivateLegalHold :: (Member BrigAccess r, Member (ErrorS 'CannotEnableLegalHoldServiceLargeTeam) r, Member TeamStore r) => TeamId -> Sem r ()
- internalDeleteBindingTeam :: (Member (ErrorS 'NoBindingTeam) r, Member (ErrorS 'TeamNotFound) r, Member (ErrorS 'NotAOneMemberTeam) r, Member (ErrorS 'DeleteQueueFull) r, Member (Queue DeleteItem) r, Member TeamStore r) => TeamId -> Bool -> Sem r ()
Documentation
createBindingTeam :: (Member NotificationSubsystem r, Member (Input UTCTime) r, Member (Input Opts) r, Member TeamFeatureStore r, Member TeamStore r) => TeamId -> UserId -> NewTeam -> Sem r TeamId Source #
createNonBindingTeamH :: Member (ErrorS InvalidAction) r => UserId -> ConnId -> a -> Sem r TeamId Source #
updateTeamH :: (Member (ErrorS 'NotATeamMember) r, Member (ErrorS ('MissingPermission ('Just 'SetTeamData))) r, Member NotificationSubsystem r, Member (Input UTCTime) r, Member TeamStore r) => UserId -> ConnId -> TeamId -> TeamUpdateData -> Sem r () Source #
updateTeamStatus :: (Member BrigAccess r, Member (ErrorS 'InvalidTeamStatusUpdate) r, Member (ErrorS 'TeamNotFound) r, Member (Input UTCTime) r, Member TeamStore r) => TeamId -> TeamStatusUpdate -> Sem r () Source #
getTeamH :: forall r. (Member (ErrorS 'TeamNotFound) r, Member (Queue DeleteItem) r, Member TeamStore r) => UserId -> TeamId -> Sem r Team Source #
getTeamInternalH :: (Member (ErrorS 'TeamNotFound) r, Member TeamStore r) => TeamId -> Sem r TeamData Source #
getTeamNameInternalH :: (Member (ErrorS 'TeamNotFound) r, Member TeamStore r) => TeamId -> Sem r TeamName Source #
getBindingTeamMembers :: (Member (ErrorS 'TeamNotFound) r, Member (ErrorS 'NonBindingTeam) r, Member TeamStore r) => UserId -> Sem r TeamMemberList Source #
getManyTeams :: (Member TeamStore r, Member (Queue DeleteItem) r, Member (ListItems LegacyPaging TeamId) r) => UserId -> Sem r TeamList Source #
DEPRECATED.
The endpoint was designed to query non-binding teams. However, non-binding teams is a feature that has never been adopted by clients, but the endpoint also returns the binding team of a user and it is possible that this is being used by a client, even though unlikely.
The following functionality has been changed: query parameters will be ignored, which has the effect that regardless of the parameters the response will always contain the binding team of the user if it exists. Even though they are ignored, the use of query parameters will not result in an error.
(If you want to be pedantic, the size
parameter is still honored: its allowed range is
between 1 and 100, and that will always be an upper bound of the result set of size 0 or
one.)
deleteTeam :: forall r. (Member BrigAccess r, Member (Error AuthenticationError) r, Member (ErrorS 'DeleteQueueFull) r, Member (ErrorS 'NotATeamMember) r, Member (ErrorS OperationDenied) r, Member (ErrorS 'TeamNotFound) r, Member (Queue DeleteItem) r, Member TeamStore r) => UserId -> ConnId -> TeamId -> TeamDeleteData -> Sem r () Source #
uncheckedDeleteTeam :: forall r. (Member BrigAccess r, Member ExternalAccess r, Member NotificationSubsystem r, Member (Input Opts) r, Member (Input UTCTime) r, Member LegalHoldStore r, Member MemberStore r, Member SparAccess r, Member TeamStore r) => Local UserId -> Maybe ConnId -> TeamId -> Sem r () Source #
addTeamMember :: forall r. (Member BrigAccess r, Member NotificationSubsystem r, Member (ErrorS 'InvalidPermissions) r, Member (ErrorS 'NoAddToBinding) r, Member (ErrorS 'NotATeamMember) r, Member (ErrorS 'NotConnected) r, Member (ErrorS OperationDenied) r, Member (ErrorS 'TeamNotFound) r, Member (ErrorS 'TooManyTeamMembers) r, Member (ErrorS 'TooManyTeamAdmins) r, Member (ErrorS 'UserBindingExists) r, Member (ErrorS 'TooManyTeamMembersOnTeamWithLegalhold) r, Member (Input Opts) r, Member (Input UTCTime) r, Member LegalHoldStore r, Member TeamFeatureStore r, Member TeamNotificationStore r, Member TeamStore r, Member TinyLog r) => Local UserId -> ConnId -> TeamId -> NewTeamMember -> Sem r () Source #
getTeamConversationRoles :: (Member (ErrorS 'NotATeamMember) r, Member TeamStore r) => UserId -> TeamId -> Sem r ConversationRolesList Source #
getTeamMembers :: (Member (ErrorS 'NotATeamMember) r, Member TeamStore r, Member (TeamMemberStore CassandraPaging) r) => Local UserId -> TeamId -> Maybe (Range 1 HardTruncationLimit Int32) -> Maybe TeamMembersPagingState -> Sem r TeamMembersPage Source #
bulkGetTeamMembers :: (Member (ErrorS 'BulkGetMemberLimitExceeded) r, Member (ErrorS 'NotATeamMember) r, Member TeamStore r) => Local UserId -> TeamId -> Maybe (Range 1 HardTruncationLimit Int32) -> UserIdList -> Sem r TeamMemberListOptPerms Source #
like getTeamMembers
, but with an explicit list of users we are to return.
getTeamMember :: (Member (ErrorS 'TeamMemberNotFound) r, Member (ErrorS 'NotATeamMember) r, Member TeamStore r) => Local UserId -> TeamId -> UserId -> Sem r TeamMemberOptPerms Source #
deleteTeamMember :: (Member BackendNotificationQueueAccess r, Member BrigAccess r, Member ConversationStore r, Member (Error AuthenticationError) r, Member (Error FederationError) r, Member (Error InvalidInput) r, Member (ErrorS 'AccessDenied) r, Member (ErrorS 'TeamMemberNotFound) r, Member (ErrorS 'TeamNotFound) r, Member (ErrorS 'NotATeamMember) r, Member (ErrorS OperationDenied) r, Member ExternalAccess r, Member (Input Opts) r, Member (Input UTCTime) r, Member NotificationSubsystem r, Member MemberStore r, Member TeamFeatureStore r, Member TeamStore r, Member TinyLog r) => Local UserId -> ConnId -> TeamId -> UserId -> TeamMemberDeleteData -> Sem r TeamMemberDeleteResult Source #
deleteNonBindingTeamMember :: (Member BackendNotificationQueueAccess r, Member BrigAccess r, Member ConversationStore r, Member (Error AuthenticationError) r, Member (Error FederationError) r, Member (Error InvalidInput) r, Member (ErrorS 'AccessDenied) r, Member (ErrorS 'TeamMemberNotFound) r, Member (ErrorS 'TeamNotFound) r, Member (ErrorS 'NotATeamMember) r, Member (ErrorS OperationDenied) r, Member ExternalAccess r, Member (Input Opts) r, Member (Input UTCTime) r, Member NotificationSubsystem r, Member MemberStore r, Member TeamFeatureStore r, Member TeamStore r, Member TinyLog r) => Local UserId -> ConnId -> TeamId -> UserId -> Sem r TeamMemberDeleteResult Source #
updateTeamMember :: forall r. (Member BrigAccess r, Member (ErrorS 'AccessDenied) r, Member (ErrorS 'InvalidPermissions) r, Member (ErrorS 'TeamNotFound) r, Member (ErrorS 'TeamMemberNotFound) r, Member (ErrorS 'TooManyTeamAdmins) r, Member (ErrorS 'NotATeamMember) r, Member (ErrorS OperationDenied) r, Member NotificationSubsystem r, Member (Input UTCTime) r, Member TinyLog r, Member TeamStore r) => Local UserId -> ConnId -> TeamId -> NewTeamMember -> Sem r () Source #
getTeamConversations :: (Member (ErrorS 'NotATeamMember) r, Member (ErrorS OperationDenied) r, Member TeamStore r) => UserId -> TeamId -> Sem r TeamConversationList Source #
getTeamConversation :: (Member (ErrorS 'ConvNotFound) r, Member (ErrorS 'NotATeamMember) r, Member (ErrorS OperationDenied) r, Member TeamStore r) => UserId -> TeamId -> ConvId -> Sem r TeamConversation Source #
deleteTeamConversation :: (Member BackendNotificationQueueAccess r, Member BrigAccess r, Member CodeStore r, Member ConversationStore r, Member (Error FederationError) r, Member (ErrorS 'ConvNotFound) r, Member (ErrorS 'InvalidOperation) r, Member (ErrorS 'NotATeamMember) r, Member (ErrorS ('ActionDenied 'DeleteConversation)) r, Member FederatorAccess r, Member MemberStore r, Member ProposalStore r, Member ExternalAccess r, Member NotificationSubsystem r, Member (Input UTCTime) r, Member SubConversationStore r, Member TeamStore r) => Local UserId -> ConnId -> TeamId -> ConvId -> Sem r () Source #
getSearchVisibility :: (Member (ErrorS 'NotATeamMember) r, Member (ErrorS OperationDenied) r, Member SearchVisibilityStore r, Member TeamStore r) => Local UserId -> TeamId -> Sem r TeamSearchVisibilityView Source #
setSearchVisibility :: forall r. (Member (ErrorS 'NotATeamMember) r, Member (ErrorS OperationDenied) r, Member (ErrorS 'TeamSearchVisibilityNotEnabled) r, Member SearchVisibilityStore r, Member TeamStore r) => (TeamId -> Sem r Bool) -> Local UserId -> TeamId -> TeamSearchVisibilityView -> Sem r () Source #
getSearchVisibilityInternal :: Member SearchVisibilityStore r => TeamId -> Sem r TeamSearchVisibilityView Source #
Modify and get visibility type for a team (internal, no user permission checks)
setSearchVisibilityInternal :: forall r. (Member (ErrorS 'TeamSearchVisibilityNotEnabled) r, Member SearchVisibilityStore r) => (TeamId -> Sem r Bool) -> TeamId -> TeamSearchVisibilityView -> Sem r () Source #
uncheckedAddTeamMember :: forall r. (Member BrigAccess r, Member NotificationSubsystem r, Member (ErrorS 'TooManyTeamMembers) r, Member (ErrorS 'TooManyTeamAdmins) r, Member (ErrorS 'TooManyTeamMembersOnTeamWithLegalhold) r, Member (Input Opts) r, Member (Input UTCTime) r, Member LegalHoldStore r, Member TinyLog r, Member TeamFeatureStore r, Member TeamNotificationStore r, Member TeamStore r) => TeamId -> NewTeamMember -> Sem r () Source #
uncheckedGetTeamMember :: (Member (ErrorS 'TeamMemberNotFound) r, Member TeamStore r) => TeamId -> UserId -> Sem r TeamMember Source #
uncheckedGetTeamMembersH :: Member TeamStore r => TeamId -> Maybe (Range 1 HardTruncationLimit Int32) -> Sem r TeamMemberList Source #
uncheckedDeleteTeamMember :: forall r. (Member BackendNotificationQueueAccess r, Member ConversationStore r, Member NotificationSubsystem r, Member (Error FederationError) r, Member ExternalAccess r, Member (Input UTCTime) r, Member MemberStore r, Member TeamStore r) => Local UserId -> Maybe ConnId -> TeamId -> UserId -> Either [UserId] TeamMemberList -> Sem r () Source #
uncheckedUpdateTeamMember :: forall r. (Member BrigAccess r, Member (ErrorS 'TeamNotFound) r, Member (ErrorS 'TeamMemberNotFound) r, Member (ErrorS 'TooManyTeamAdmins) r, Member NotificationSubsystem r, Member (Input UTCTime) r, Member TinyLog r, Member TeamStore r) => Maybe (Local UserId) -> Maybe ConnId -> TeamId -> NewTeamMember -> Sem r () Source #
userIsTeamOwner :: (Member (ErrorS 'TeamMemberNotFound) r, Member (ErrorS 'AccessDenied) r, Member (ErrorS 'NotATeamMember) r, Member (Input (Local ())) r, Member TeamStore r) => TeamId -> UserId -> Sem r () Source #
canUserJoinTeam :: forall r. (Member BrigAccess r, Member LegalHoldStore r, Member TeamStore r, Member TeamFeatureStore r, Member (ErrorS 'TooManyTeamMembersOnTeamWithLegalhold) r) => TeamId -> Sem r () Source #
ensureNotTooLargeForLegalHold :: forall r. (Member LegalHoldStore r, Member TeamStore r, Member TeamFeatureStore r, Member (ErrorS 'TooManyTeamMembersOnTeamWithLegalhold) r) => TeamId -> Int -> Sem r () Source #
Ensure that a team doesn't exceed the member count limit for the LegalHold
feature. A team with more members than the fanout limit is too large, because
the fanout limit would prevent turning LegalHold feature _off_ again (for
details see removeSettings
).
If LegalHold is configured for whitelisted teams only we consider the team size unlimited, because we make the assumption that these teams won't turn LegalHold off after activation. FUTUREWORK: Find a way around the fanout limit.
ensureNotTooLargeToActivateLegalHold :: (Member BrigAccess r, Member (ErrorS 'CannotEnableLegalHoldServiceLargeTeam) r, Member TeamStore r) => TeamId -> Sem r () Source #
internalDeleteBindingTeam :: (Member (ErrorS 'NoBindingTeam) r, Member (ErrorS 'TeamNotFound) r, Member (ErrorS 'NotAOneMemberTeam) r, Member (ErrorS 'DeleteQueueFull) r, Member (Queue DeleteItem) r, Member TeamStore r) => TeamId -> Bool -> Sem r () Source #