Documentation

getCommitData :: (HasProposalEffects r, Member (ErrorS 'MLSProposalNotFound) r) => ClientIdentity -> Local ConvOrSubConv -> Epoch -> CipherSuiteTag -> IncomingBundle -> Sem r ProposalAction Source #

incrementEpoch :: (Member ConversationStore r, Member (ErrorS 'ConvNotFound) r, Member MemberStore r, Member SubConversationStore r) => ConvOrSubConv -> Sem r ConvOrSubConv Source #

getClientInfo :: (Member BrigAccess r, Member FederatorAccess r) => Local x -> Qualified UserId -> CipherSuiteTag -> Sem r (Either FederationError (Set ClientInfo)) Source #

type HasProposalActionEffects r = (Member BackendNotificationQueueAccess r, Member BrigAccess r, Member ConversationStore r, Member (Error InternalError) r, Member (ErrorS 'ConvNotFound) r, Member (ErrorS 'MLSClientMismatch) r, Member (Error MLSProposalFailure) r, Member (ErrorS 'MissingLegalholdConsent) r, Member (ErrorS 'MLSUnsupportedProposal) r, Member (Error MLSProtocolError) r, Member (Error NonFederatingBackends) r, Member (Error UnreachableBackends) r, Member (ErrorS 'MLSSelfRemovalNotAllowed) r, Member ExternalAccess r, Member FederatorAccess r, Member (Input Env) r, Member (Input Opts) r, Member (Input UTCTime) r, Member LegalHoldStore r, Member MemberStore r, Member ProposalStore r, Member SubConversationStore r, Member TeamStore r, Member TinyLog r, Member NotificationSubsystem r, Member Random r) Source #

type ProposalErrors = '[Error FederationError, Error InvalidInput, ErrorS ('ActionDenied 'AddConversationMember), ErrorS ('ActionDenied 'LeaveConversation), ErrorS ('ActionDenied 'RemoveConversationMember), ErrorS 'ConvAccessDenied, ErrorS 'InvalidOperation, ErrorS 'NotATeamMember, ErrorS 'NotConnected, ErrorS 'TooManyMembers] Source #

class HandleMLSProposalFailures effs r where Source #