Safe Haskell	Safe-Inferred
Language	GHC2021

Galley.API.Teams

Synopsis

createBindingTeam :: (Member NotificationSubsystem r, Member (Input UTCTime) r, Member TeamStore r) => TeamId -> UserId -> BindingNewTeam -> Sem r TeamId
createNonBindingTeamH :: forall r. (Member BrigAccess r, Member (ErrorS 'UserBindingExists) r, Member (ErrorS 'NotConnected) r, Member NotificationSubsystem r, Member (Input UTCTime) r, Member TinyLog r, Member TeamStore r) => UserId -> ConnId -> NonBindingNewTeam -> 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
getTeamMembersCSV :: (Member BrigAccess r, Member (ErrorS 'AccessDenied) r, Member (TeamMemberStore InternalPaging) r, Member TeamStore r, Member (Final IO) r, Member SparAccess r) => Local UserId -> TeamId -> Sem r StreamingBody
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 TeamStore r) => TeamId -> UserId -> BindingNewTeam -> Sem r TeamId Source #

createNonBindingTeamH :: forall r. (Member BrigAccess r, Member (ErrorS 'UserBindingExists) r, Member (ErrorS 'NotConnected) r, Member NotificationSubsystem r, Member (Input UTCTime) r, Member TinyLog r, Member TeamStore r) => UserId -> ConnId -> NonBindingNewTeam -> 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 #

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 #

getTeamMembersCSV :: (Member BrigAccess r, Member (ErrorS 'AccessDenied) r, Member (TeamMemberStore InternalPaging) r, Member TeamStore r, Member (Final IO) r, Member SparAccess r) => Local UserId -> TeamId -> Sem r StreamingBody 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 #