Safe Haskell | Safe-Inferred |
---|---|
Language | GHC2021 |
Documentation
getSubConversation :: Members '[SubConversationStore, ConversationStore, ErrorS 'ConvNotFound, ErrorS 'ConvAccessDenied, ErrorS 'MLSSubConvUnsupportedConvType, Error FederationError, FederatorAccess] r => Local UserId -> Qualified ConvId -> SubConvId -> Sem r PublicSubConversation Source #
getLocalSubConversation :: Members '[SubConversationStore, ConversationStore, ErrorS 'ConvNotFound, ErrorS 'ConvAccessDenied, ErrorS 'MLSSubConvUnsupportedConvType] r => Qualified UserId -> Local ConvId -> SubConvId -> Sem r PublicSubConversation Source #
deleteSubConversation :: Members '[ConversationStore, ErrorS 'ConvAccessDenied, ErrorS 'ConvNotFound, ErrorS 'MLSNotEnabled, ErrorS 'MLSStaleMessage, Error FederationError, FederatorAccess, Input Env, MemberStore, Resource, SubConversationStore] r => Local UserId -> Qualified ConvId -> SubConvId -> DeleteSubConversationRequest -> Sem r () Source #
deleteLocalSubConversation :: Members '[ConversationStore, ErrorS 'ConvAccessDenied, ErrorS 'ConvNotFound, ErrorS 'MLSNotEnabled, ErrorS 'MLSStaleMessage, FederatorAccess, Input Env, MemberStore, Resource, SubConversationStore] r => Qualified UserId -> Local ConvId -> SubConvId -> DeleteSubConversationRequest -> Sem r () Source #
getSubConversationGroupInfo :: (Members '[ConversationStore, Error FederationError, FederatorAccess, Input Env, MemberStore, SubConversationStore] r, Members MLSGroupInfoStaticErrors r) => Local UserId -> Qualified ConvId -> SubConvId -> Sem r GroupInfoData Source #
getSubConversationGroupInfoFromLocalConv :: Members '[ConversationStore, SubConversationStore, MemberStore] r => Members MLSGroupInfoStaticErrors r => Qualified UserId -> SubConvId -> Local ConvId -> Sem r GroupInfoData Source #
leaveSubConversation :: (HasLeaveSubConversationEffects r, Member (Error MLSProtocolError) r, Member (Error FederationError) r, Member (ErrorS 'MLSStaleMessage) r, Member (ErrorS 'MLSNotEnabled) r, Member Resource r, Members LeaveSubConversationStaticErrors r) => Local UserId -> ClientId -> Qualified ConvId -> SubConvId -> Sem r () Source #
type HasLeaveSubConversationEffects r = Members '[BackendNotificationQueueAccess, ConversationStore, ExternalAccess, FederatorAccess, NotificationSubsystem, Input Env, Input UTCTime, MemberStore, ProposalStore, Random, SubConversationStore, TinyLog] r Source #
type LeaveSubConversationStaticErrors = '[ErrorS 'ConvNotFound, ErrorS 'ConvAccessDenied, ErrorS 'MLSStaleMessage, ErrorS 'MLSNotEnabled] Source #
leaveLocalSubConversation :: (HasLeaveSubConversationEffects r, Member (Error MLSProtocolError) r, Member (ErrorS 'MLSStaleMessage) r, Member (ErrorS 'MLSNotEnabled) r, Member (Error FederationError) r, Member Resource r, Members LeaveSubConversationStaticErrors r) => ClientIdentity -> Local ConvId -> SubConvId -> Sem r () Source #