Safe Haskell	None
Language	Haskell2010

Simplex.Chat.Store.Messages

Contents

Message and chat item functions

Synopsis

getContactConnIds_ :: Connection -> User -> Contact -> IO [Int64]
deleteContactCIs :: Connection -> User -> Contact -> IO ()
getGroupFileInfo :: Connection -> User -> GroupInfo -> IO [CIFileInfo]
getGroupMemberFileInfo :: Connection -> User -> GroupInfo -> GroupMember -> IO [CIFileInfo]
deleteGroupChatItemsMessages :: Connection -> User -> GroupInfo -> IO ()
createNewSndMessage :: forall (e :: MsgEncoding). MsgEncodingI e => Connection -> TVar ChaChaDRG -> ConnOrGroupId -> ChatMsgEvent e -> (SharedMsgId -> EncodedChatMessage) -> ExceptT StoreError IO SndMessage
createSndMsgDelivery :: Connection -> SndMsgDelivery -> MessageId -> IO Int64
createNewMessageAndRcvMsgDelivery :: forall (e :: MsgEncoding). MsgEncodingI e => Connection -> ConnOrGroupId -> NewRcvMessage e -> Maybe SharedMsgId -> RcvMsgDelivery -> Maybe GroupMemberId -> ExceptT StoreError IO RcvMessage
getLastRcvMsgInfo :: Connection -> Int64 -> IO (Maybe RcvMsgInfo)
createNewRcvMessage :: forall (e :: MsgEncoding). MsgEncodingI e => Connection -> ConnOrGroupId -> NewRcvMessage e -> Maybe SharedMsgId -> Maybe GroupMemberId -> Maybe GroupMemberId -> ExceptT StoreError IO RcvMessage
updateSndMsgDeliveryStatus :: Connection -> Int64 -> AgentMsgId -> MsgDeliveryStatus 'MDSnd -> IO ()
createPendingGroupMessage :: Connection -> Int64 -> MessageId -> IO ()
getPendingGroupMessages :: Connection -> Int64 -> IO [SndMessage]
deletePendingGroupMessage :: Connection -> Int64 -> MessageId -> IO ()
deleteOldMessages :: Connection -> UTCTime -> IO ()
data MemberAttention
- = MAInc Int (Maybe UTCTime)
- | MAReset
updateChatTsStats :: forall (c :: ChatType) (d :: MsgDirection). Connection -> VersionRangeChat -> User -> ChatDirection c d -> UTCTime -> Maybe (Int, MemberAttention, Int) -> IO (ChatInfo c)
setSupportChatTs :: Connection -> GroupMemberId -> UTCTime -> IO ()
setSupportChatMemberAttention :: Connection -> VersionRangeChat -> User -> GroupInfo -> GroupMember -> Int64 -> IO (GroupInfo, GroupMember)
createNewSndChatItem :: forall (c :: ChatType). Connection -> User -> ChatDirection c 'MDSnd -> SndMessage -> CIContent 'MDSnd -> Maybe (CIQuote c) -> Maybe CIForwardedFrom -> Maybe CITimed -> Bool -> UTCTime -> IO ChatItemId
createNewRcvChatItem :: forall (c :: ChatType). ChatTypeQuotable c => Connection -> User -> ChatDirection c 'MDRcv -> RcvMessage -> Maybe SharedMsgId -> CIContent 'MDRcv -> Maybe CITimed -> Bool -> Bool -> UTCTime -> UTCTime -> IO (ChatItemId, Maybe (CIQuote c), Maybe CIForwardedFrom)
createNewChatItemNoMsg :: forall (c :: ChatType) (d :: MsgDirection). MsgDirectionI d => Connection -> User -> ChatDirection c d -> ShowGroupAsSender -> CIContent d -> Maybe SharedMsgId -> UTCTime -> UTCTime -> IO ChatItemId
createNewChatItem_ :: forall (c :: ChatType) (d :: MsgDirection). MsgDirectionI d => Connection -> User -> ChatDirection c d -> ShowGroupAsSender -> Maybe MessageId -> Maybe SharedMsgId -> CIContent d -> NewQuoteRow -> Maybe CIForwardedFrom -> Maybe CITimed -> Bool -> Bool -> UTCTime -> Maybe GroupMemberId -> UTCTime -> IO ChatItemId
getChatPreviews :: Connection -> VersionRangeChat -> User -> Bool -> PaginationByTime -> ChatListQuery -> IO [Either StoreError AChat]
checkContactHasItems :: Connection -> User -> Contact -> IO Bool
getDirectChat :: Connection -> VersionRangeChat -> User -> Int64 -> ChatPagination -> Maybe Text -> ExceptT StoreError IO (Chat 'CTDirect, Maybe NavigationInfo)
getGroupChat :: Connection -> VersionRangeChat -> User -> Int64 -> Maybe GroupChatScope -> Maybe MsgContentTag -> ChatPagination -> Maybe Text -> ExceptT StoreError IO (Chat 'CTGroup, Maybe NavigationInfo)
getGroupChatScopeInfoForItem :: Connection -> VersionRangeChat -> User -> GroupInfo -> ChatItemId -> ExceptT StoreError IO (Maybe GroupChatScopeInfo)
getLocalChat :: Connection -> User -> Int64 -> ChatPagination -> Maybe Text -> ExceptT StoreError IO (Chat 'CTLocal, Maybe NavigationInfo)
getDirectChatItemLast :: Connection -> User -> ContactId -> ExceptT StoreError IO (CChatItem 'CTDirect)
getAllChatItems :: Connection -> VersionRangeChat -> User -> ChatPagination -> Maybe Text -> ExceptT StoreError IO [AChatItem]
getAChatItem :: Connection -> VersionRangeChat -> User -> ChatRef -> ChatItemId -> ExceptT StoreError IO AChatItem
getAChatItemBySharedMsgId :: forall (c :: ChatType). ChatTypeQuotable c => Connection -> User -> ChatDirection c 'MDRcv -> SharedMsgId -> ExceptT StoreError IO AChatItem
updateDirectChatItem :: forall (d :: MsgDirection). MsgDirectionI d => Connection -> User -> Contact -> ChatItemId -> CIContent d -> Bool -> Bool -> Maybe CITimed -> Maybe MessageId -> ExceptT StoreError IO (ChatItem 'CTDirect d)
updateDirectChatItem' :: forall (d :: MsgDirection). MsgDirectionI d => Connection -> User -> Int64 -> ChatItem 'CTDirect d -> CIContent d -> Bool -> Bool -> Maybe CITimed -> Maybe MessageId -> IO (ChatItem 'CTDirect d)
addInitialAndNewCIVersions :: Connection -> ChatItemId -> (UTCTime, MsgContent) -> (UTCTime, MsgContent) -> IO ()
createChatItemVersion :: Connection -> ChatItemId -> UTCTime -> MsgContent -> IO ()
deleteDirectChatItem :: forall (d :: MsgDirection). Connection -> User -> Contact -> ChatItem 'CTDirect d -> IO ()
markDirectChatItemDeleted :: forall (d :: MsgDirection). Connection -> User -> Contact -> ChatItem 'CTDirect d -> UTCTime -> IO (ChatItem 'CTDirect d)
updateGroupChatItemStatus :: forall (d :: MsgDirection). MsgDirectionI d => Connection -> User -> GroupInfo -> ChatItemId -> CIStatus d -> ExceptT StoreError IO (ChatItem 'CTGroup d)
updateGroupChatItem :: forall (d :: MsgDirection). MsgDirectionI d => Connection -> User -> Int64 -> ChatItem 'CTGroup d -> CIContent d -> Bool -> Bool -> Maybe MessageId -> IO (ChatItem 'CTGroup d)
createGroupCIMentions :: forall (d :: MsgDirection). Connection -> GroupInfo -> ChatItem 'CTGroup d -> Map MemberName CIMention -> IO (ChatItem 'CTGroup d)
updateGroupCIMentions :: forall (d :: MsgDirection). Connection -> GroupInfo -> ChatItem 'CTGroup d -> Map MemberName CIMention -> IO (ChatItem 'CTGroup d)
deleteGroupChatItem :: forall (d :: MsgDirection). Connection -> User -> GroupInfo -> ChatItem 'CTGroup d -> IO ()
updateGroupChatItemModerated :: forall (d :: MsgDirection). MsgDirectionI d => Connection -> User -> GroupInfo -> ChatItem 'CTGroup d -> GroupMember -> UTCTime -> IO (ChatItem 'CTGroup d)
updateMemberCIsModerated :: forall (d :: MsgDirection). MsgDirectionI d => Connection -> User -> GroupInfo -> GroupMember -> GroupMember -> SMsgDirection d -> UTCTime -> IO ()
updateGroupCIBlockedByAdmin :: forall (d :: MsgDirection). Connection -> User -> GroupInfo -> ChatItem 'CTGroup d -> UTCTime -> IO (ChatItem 'CTGroup d)
markGroupChatItemDeleted :: forall (d :: MsgDirection). Connection -> User -> GroupInfo -> ChatItem 'CTGroup d -> Maybe GroupMember -> UTCTime -> IO (ChatItem 'CTGroup d)
markMemberCIsDeleted :: Connection -> User -> GroupInfo -> GroupMember -> GroupMember -> UTCTime -> IO ()
markGroupChatItemBlocked :: Connection -> User -> GroupInfo -> ChatItem 'CTGroup 'MDRcv -> IO (ChatItem 'CTGroup 'MDRcv)
markGroupCIBlockedByAdmin :: Connection -> User -> GroupInfo -> ChatItem 'CTGroup 'MDRcv -> IO (ChatItem 'CTGroup 'MDRcv)
markMessageReportsDeleted :: forall (d :: MsgDirection). Connection -> User -> GroupInfo -> ChatItem 'CTGroup d -> GroupMember -> UTCTime -> IO [ChatItemId]
markReceivedGroupReportsDeleted :: Connection -> User -> GroupInfo -> UTCTime -> IO [ChatItemId]
deleteLocalChatItem :: forall (d :: MsgDirection). Connection -> User -> NoteFolder -> ChatItem 'CTLocal d -> IO ()
updateDirectChatItemsRead :: Connection -> User -> ContactId -> IO ()
getDirectUnreadTimedItems :: Connection -> User -> ContactId -> IO [(ChatItemId, Int)]
updateDirectChatItemsReadList :: Connection -> User -> ContactId -> NonEmpty ChatItemId -> IO [(ChatItemId, Int)]
setDirectChatItemRead :: Connection -> User -> ContactId -> ChatItemId -> IO ()
setDirectChatItemsDeleteAt :: Connection -> User -> ContactId -> [(ChatItemId, Int)] -> UTCTime -> IO [(ChatItemId, UTCTime)]
updateGroupChatItemsRead :: Connection -> User -> GroupInfo -> IO ()
updateSupportChatItemsRead :: Connection -> VersionRangeChat -> User -> GroupInfo -> GroupChatScopeInfo -> IO (GroupInfo, GroupMember)
getGroupUnreadTimedItems :: Connection -> User -> GroupId -> Maybe GroupChatScope -> IO [(ChatItemId, Int)]
updateGroupChatItemsReadList :: Connection -> VersionRangeChat -> User -> GroupInfo -> Maybe GroupChatScopeInfo -> NonEmpty ChatItemId -> ExceptT StoreError IO ([(ChatItemId, Int)], GroupInfo)
updateGroupScopeUnreadStats :: Connection -> VersionRangeChat -> User -> GroupInfo -> GroupChatScopeInfo -> (Int, Int, Int) -> IO GroupInfo
setGroupChatItemsDeleteAt :: Connection -> User -> GroupId -> [(ChatItemId, Int)] -> UTCTime -> IO [(ChatItemId, UTCTime)]
updateLocalChatItemsRead :: Connection -> User -> NoteFolderId -> IO ()
getChatRefViaItemId :: Connection -> User -> ChatItemId -> ExceptT StoreError IO ChatRef
getChatItemVersions :: Connection -> ChatItemId -> IO [ChatItemVersion]
getDirectCIReactions :: Connection -> Contact -> SharedMsgId -> IO [CIReactionCount]
getDirectReactions :: Connection -> Contact -> SharedMsgId -> Bool -> IO [MsgReaction]
setDirectReaction :: Connection -> Contact -> SharedMsgId -> Bool -> MsgReaction -> Bool -> MessageId -> UTCTime -> IO ()
getGroupCIReactions :: Connection -> GroupInfo -> MemberId -> SharedMsgId -> IO [CIReactionCount]
getGroupReactions :: Connection -> GroupInfo -> GroupMember -> MemberId -> SharedMsgId -> Bool -> IO [MsgReaction]
setGroupReaction :: Connection -> GroupInfo -> GroupMember -> MemberId -> SharedMsgId -> Bool -> MsgReaction -> Bool -> MessageId -> UTCTime -> IO ()
getReactionMembers :: Connection -> VersionRangeChat -> User -> GroupId -> SharedMsgId -> MsgReaction -> IO [MemberReaction]
getChatItemIdsByAgentMsgId :: Connection -> Int64 -> AgentMsgId -> IO [ChatItemId]
getDirectChatItem :: Connection -> User -> Int64 -> ChatItemId -> ExceptT StoreError IO (CChatItem 'CTDirect)
getDirectCIWithReactions :: Connection -> User -> Contact -> ChatItemId -> ExceptT StoreError IO (CChatItem 'CTDirect)
getDirectChatItemBySharedMsgId :: Connection -> User -> ContactId -> SharedMsgId -> ExceptT StoreError IO (CChatItem 'CTDirect)
getDirectChatItemsByAgentMsgId :: Connection -> User -> ContactId -> Int64 -> AgentMsgId -> IO [CChatItem 'CTDirect]
getGroupChatItem :: Connection -> User -> Int64 -> ChatItemId -> ExceptT StoreError IO (CChatItem 'CTGroup)
getGroupCIWithReactions :: Connection -> User -> GroupInfo -> ChatItemId -> ExceptT StoreError IO (CChatItem 'CTGroup)
getGroupChatItemBySharedMsgId :: Connection -> User -> GroupInfo -> GroupMemberId -> SharedMsgId -> ExceptT StoreError IO (CChatItem 'CTGroup)
getGroupMemberCIBySharedMsgId :: Connection -> User -> GroupInfo -> MemberId -> SharedMsgId -> ExceptT StoreError IO (CChatItem 'CTGroup)
getGroupChatItemsByAgentMsgId :: Connection -> User -> GroupId -> Int64 -> AgentMsgId -> IO [CChatItem 'CTGroup]
getGroupMemberChatItemLast :: Connection -> User -> GroupId -> GroupMemberId -> ExceptT StoreError IO (CChatItem 'CTGroup)
getLocalChatItem :: Connection -> User -> Int64 -> ChatItemId -> ExceptT StoreError IO (CChatItem 'CTLocal)
updateLocalChatItem' :: forall (d :: MsgDirection). MsgDirectionI d => Connection -> User -> NoteFolderId -> ChatItem 'CTLocal d -> CIContent d -> Bool -> IO (ChatItem 'CTLocal d)
getDirectChatItemIdByText :: forall (d :: MsgDirection). Connection -> UserId -> Int64 -> SMsgDirection d -> Text -> ExceptT StoreError IO ChatItemId
getDirectChatItemIdByText' :: Connection -> User -> ContactId -> Text -> ExceptT StoreError IO ChatItemId
getGroupChatItemIdByText :: Connection -> User -> GroupId -> Maybe ContactName -> Text -> ExceptT StoreError IO ChatItemId
getGroupChatItemIdByText' :: Connection -> User -> GroupId -> Text -> ExceptT StoreError IO ChatItemId
getLocalChatItemIdByText :: forall (d :: MsgDirection). Connection -> User -> NoteFolderId -> SMsgDirection d -> Text -> ExceptT StoreError IO ChatItemId
getLocalChatItemIdByText' :: Connection -> User -> NoteFolderId -> Text -> ExceptT StoreError IO ChatItemId
getChatItemByFileId :: Connection -> VersionRangeChat -> User -> Int64 -> ExceptT StoreError IO AChatItem
lookupChatItemByFileId :: Connection -> VersionRangeChat -> User -> Int64 -> ExceptT StoreError IO (Maybe AChatItem)
getChatItemByGroupId :: Connection -> VersionRangeChat -> User -> GroupId -> ExceptT StoreError IO AChatItem
updateDirectChatItemStatus :: forall (d :: MsgDirection). MsgDirectionI d => Connection -> User -> Contact -> ChatItemId -> CIStatus d -> ExceptT StoreError IO (ChatItem 'CTDirect d)
setDirectSndChatItemViaProxy :: Connection -> User -> Contact -> ChatItem 'CTDirect 'MDSnd -> Bool -> IO (ChatItem 'CTDirect 'MDSnd)
getTimedItems :: Connection -> User -> UTCTime -> IO [((ChatRef, ChatItemId), UTCTime)]
getChatItemTTL :: Connection -> User -> IO Int64
setChatItemTTL :: Connection -> User -> Int64 -> IO ()
getChatTTLCount :: Connection -> User -> IO Int
getContactExpiredFileInfo :: Connection -> User -> Contact -> UTCTime -> IO [CIFileInfo]
deleteContactExpiredCIs :: Connection -> User -> Contact -> UTCTime -> IO ()
getGroupExpiredFileInfo :: Connection -> User -> GroupInfo -> UTCTime -> UTCTime -> IO [CIFileInfo]
deleteGroupExpiredCIs :: Connection -> User -> GroupInfo -> UTCTime -> UTCTime -> IO ()
createCIModeration :: Connection -> GroupInfo -> GroupMember -> MemberId -> SharedMsgId -> MessageId -> UTCTime -> IO ()
getCIModeration :: Connection -> VersionRangeChat -> User -> GroupInfo -> MemberId -> Maybe SharedMsgId -> IO (Maybe CIModeration)
deleteCIModeration :: Connection -> GroupInfo -> MemberId -> Maybe SharedMsgId -> IO ()
createGroupSndStatus :: Connection -> ChatItemId -> GroupMemberId -> GroupSndStatus -> IO ()
getGroupSndStatus :: Connection -> ChatItemId -> GroupMemberId -> ExceptT StoreError IO GroupSndStatus
updateGroupSndStatus :: Connection -> ChatItemId -> GroupMemberId -> GroupSndStatus -> IO ()
setGroupSndViaProxy :: Connection -> ChatItemId -> GroupMemberId -> Bool -> IO ()
getGroupSndStatuses :: Connection -> ChatItemId -> IO [MemberDeliveryStatus]
getGroupSndStatusCounts :: Connection -> ChatItemId -> IO [(GroupSndStatus, Int)]
getGroupHistoryItems :: Connection -> User -> GroupInfo -> GroupMember -> Int -> IO [Either StoreError (CChatItem 'CTGroup)]

Documentation

getContactConnIds_ :: Connection -> User -> Contact -> IO [Int64] Source #

Message and chat item functions

deleteContactCIs :: Connection -> User -> Contact -> IO () Source #

getGroupFileInfo :: Connection -> User -> GroupInfo -> IO [CIFileInfo] Source #

getGroupMemberFileInfo :: Connection -> User -> GroupInfo -> GroupMember -> IO [CIFileInfo] Source #

deleteGroupChatItemsMessages :: Connection -> User -> GroupInfo -> IO () Source #

createNewSndMessage :: forall (e :: MsgEncoding). MsgEncodingI e => Connection -> TVar ChaChaDRG -> ConnOrGroupId -> ChatMsgEvent e -> (SharedMsgId -> EncodedChatMessage) -> ExceptT StoreError IO SndMessage Source #

createSndMsgDelivery :: Connection -> SndMsgDelivery -> MessageId -> IO Int64 Source #

createNewMessageAndRcvMsgDelivery :: forall (e :: MsgEncoding). MsgEncodingI e => Connection -> ConnOrGroupId -> NewRcvMessage e -> Maybe SharedMsgId -> RcvMsgDelivery -> Maybe GroupMemberId -> ExceptT StoreError IO RcvMessage Source #

getLastRcvMsgInfo :: Connection -> Int64 -> IO (Maybe RcvMsgInfo) Source #

createNewRcvMessage :: forall (e :: MsgEncoding). MsgEncodingI e => Connection -> ConnOrGroupId -> NewRcvMessage e -> Maybe SharedMsgId -> Maybe GroupMemberId -> Maybe GroupMemberId -> ExceptT StoreError IO RcvMessage Source #

updateSndMsgDeliveryStatus :: Connection -> Int64 -> AgentMsgId -> MsgDeliveryStatus 'MDSnd -> IO () Source #

createPendingGroupMessage :: Connection -> Int64 -> MessageId -> IO () Source #

getPendingGroupMessages :: Connection -> Int64 -> IO [SndMessage] Source #

deletePendingGroupMessage :: Connection -> Int64 -> MessageId -> IO () Source #

deleteOldMessages :: Connection -> UTCTime -> IO () Source #

data MemberAttention Source #

Constructors

MAInc Int (Maybe UTCTime)
MAReset

Instances

Instances details

Show MemberAttention Source #
Instance details Defined in Simplex.Chat.Store.Messages Methods showsPrec :: Int -> MemberAttention -> ShowS show :: MemberAttention -> String showList :: [MemberAttention] -> ShowS

updateChatTsStats :: forall (c :: ChatType) (d :: MsgDirection). Connection -> VersionRangeChat -> User -> ChatDirection c d -> UTCTime -> Maybe (Int, MemberAttention, Int) -> IO (ChatInfo c) Source #

setSupportChatTs :: Connection -> GroupMemberId -> UTCTime -> IO () Source #

setSupportChatMemberAttention :: Connection -> VersionRangeChat -> User -> GroupInfo -> GroupMember -> Int64 -> IO (GroupInfo, GroupMember) Source #

createNewSndChatItem :: forall (c :: ChatType). Connection -> User -> ChatDirection c 'MDSnd -> SndMessage -> CIContent 'MDSnd -> Maybe (CIQuote c) -> Maybe CIForwardedFrom -> Maybe CITimed -> Bool -> UTCTime -> IO ChatItemId Source #

createNewRcvChatItem :: forall (c :: ChatType). ChatTypeQuotable c => Connection -> User -> ChatDirection c 'MDRcv -> RcvMessage -> Maybe SharedMsgId -> CIContent 'MDRcv -> Maybe CITimed -> Bool -> Bool -> UTCTime -> UTCTime -> IO (ChatItemId, Maybe (CIQuote c), Maybe CIForwardedFrom) Source #

createNewChatItemNoMsg :: forall (c :: ChatType) (d :: MsgDirection). MsgDirectionI d => Connection -> User -> ChatDirection c d -> ShowGroupAsSender -> CIContent d -> Maybe SharedMsgId -> UTCTime -> UTCTime -> IO ChatItemId Source #

createNewChatItem_ :: forall (c :: ChatType) (d :: MsgDirection). MsgDirectionI d => Connection -> User -> ChatDirection c d -> ShowGroupAsSender -> Maybe MessageId -> Maybe SharedMsgId -> CIContent d -> NewQuoteRow -> Maybe CIForwardedFrom -> Maybe CITimed -> Bool -> Bool -> UTCTime -> Maybe GroupMemberId -> UTCTime -> IO ChatItemId Source #

getChatPreviews :: Connection -> VersionRangeChat -> User -> Bool -> PaginationByTime -> ChatListQuery -> IO [Either StoreError AChat] Source #

checkContactHasItems :: Connection -> User -> Contact -> IO Bool Source #

getDirectChat :: Connection -> VersionRangeChat -> User -> Int64 -> ChatPagination -> Maybe Text -> ExceptT StoreError IO (Chat 'CTDirect, Maybe NavigationInfo) Source #

getGroupChat :: Connection -> VersionRangeChat -> User -> Int64 -> Maybe GroupChatScope -> Maybe MsgContentTag -> ChatPagination -> Maybe Text -> ExceptT StoreError IO (Chat 'CTGroup, Maybe NavigationInfo) Source #

getGroupChatScopeInfoForItem :: Connection -> VersionRangeChat -> User -> GroupInfo -> ChatItemId -> ExceptT StoreError IO (Maybe GroupChatScopeInfo) Source #

getLocalChat :: Connection -> User -> Int64 -> ChatPagination -> Maybe Text -> ExceptT StoreError IO (Chat 'CTLocal, Maybe NavigationInfo) Source #

getDirectChatItemLast :: Connection -> User -> ContactId -> ExceptT StoreError IO (CChatItem 'CTDirect) Source #

getAllChatItems :: Connection -> VersionRangeChat -> User -> ChatPagination -> Maybe Text -> ExceptT StoreError IO [AChatItem] Source #

getAChatItem :: Connection -> VersionRangeChat -> User -> ChatRef -> ChatItemId -> ExceptT StoreError IO AChatItem Source #

getAChatItemBySharedMsgId :: forall (c :: ChatType). ChatTypeQuotable c => Connection -> User -> ChatDirection c 'MDRcv -> SharedMsgId -> ExceptT StoreError IO AChatItem Source #

updateDirectChatItem :: forall (d :: MsgDirection). MsgDirectionI d => Connection -> User -> Contact -> ChatItemId -> CIContent d -> Bool -> Bool -> Maybe CITimed -> Maybe MessageId -> ExceptT StoreError IO (ChatItem 'CTDirect d) Source #

updateDirectChatItem' :: forall (d :: MsgDirection). MsgDirectionI d => Connection -> User -> Int64 -> ChatItem 'CTDirect d -> CIContent d -> Bool -> Bool -> Maybe CITimed -> Maybe MessageId -> IO (ChatItem 'CTDirect d) Source #

addInitialAndNewCIVersions :: Connection -> ChatItemId -> (UTCTime, MsgContent) -> (UTCTime, MsgContent) -> IO () Source #

createChatItemVersion :: Connection -> ChatItemId -> UTCTime -> MsgContent -> IO () Source #

deleteDirectChatItem :: forall (d :: MsgDirection). Connection -> User -> Contact -> ChatItem 'CTDirect d -> IO () Source #

markDirectChatItemDeleted :: forall (d :: MsgDirection). Connection -> User -> Contact -> ChatItem 'CTDirect d -> UTCTime -> IO (ChatItem 'CTDirect d) Source #

updateGroupChatItemStatus :: forall (d :: MsgDirection). MsgDirectionI d => Connection -> User -> GroupInfo -> ChatItemId -> CIStatus d -> ExceptT StoreError IO (ChatItem 'CTGroup d) Source #

updateGroupChatItem :: forall (d :: MsgDirection). MsgDirectionI d => Connection -> User -> Int64 -> ChatItem 'CTGroup d -> CIContent d -> Bool -> Bool -> Maybe MessageId -> IO (ChatItem 'CTGroup d) Source #

createGroupCIMentions :: forall (d :: MsgDirection). Connection -> GroupInfo -> ChatItem 'CTGroup d -> Map MemberName CIMention -> IO (ChatItem 'CTGroup d) Source #

updateGroupCIMentions :: forall (d :: MsgDirection). Connection -> GroupInfo -> ChatItem 'CTGroup d -> Map MemberName CIMention -> IO (ChatItem 'CTGroup d) Source #

deleteGroupChatItem :: forall (d :: MsgDirection). Connection -> User -> GroupInfo -> ChatItem 'CTGroup d -> IO () Source #

updateGroupChatItemModerated :: forall (d :: MsgDirection). MsgDirectionI d => Connection -> User -> GroupInfo -> ChatItem 'CTGroup d -> GroupMember -> UTCTime -> IO (ChatItem 'CTGroup d) Source #

updateMemberCIsModerated :: forall (d :: MsgDirection). MsgDirectionI d => Connection -> User -> GroupInfo -> GroupMember -> GroupMember -> SMsgDirection d -> UTCTime -> IO () Source #

updateGroupCIBlockedByAdmin :: forall (d :: MsgDirection). Connection -> User -> GroupInfo -> ChatItem 'CTGroup d -> UTCTime -> IO (ChatItem 'CTGroup d) Source #

markGroupChatItemDeleted :: forall (d :: MsgDirection). Connection -> User -> GroupInfo -> ChatItem 'CTGroup d -> Maybe GroupMember -> UTCTime -> IO (ChatItem 'CTGroup d) Source #

markMemberCIsDeleted :: Connection -> User -> GroupInfo -> GroupMember -> GroupMember -> UTCTime -> IO () Source #

markGroupChatItemBlocked :: Connection -> User -> GroupInfo -> ChatItem 'CTGroup 'MDRcv -> IO (ChatItem 'CTGroup 'MDRcv) Source #

markGroupCIBlockedByAdmin :: Connection -> User -> GroupInfo -> ChatItem 'CTGroup 'MDRcv -> IO (ChatItem 'CTGroup 'MDRcv) Source #

markMessageReportsDeleted :: forall (d :: MsgDirection). Connection -> User -> GroupInfo -> ChatItem 'CTGroup d -> GroupMember -> UTCTime -> IO [ChatItemId] Source #

markReceivedGroupReportsDeleted :: Connection -> User -> GroupInfo -> UTCTime -> IO [ChatItemId] Source #

deleteLocalChatItem :: forall (d :: MsgDirection). Connection -> User -> NoteFolder -> ChatItem 'CTLocal d -> IO () Source #

updateDirectChatItemsRead :: Connection -> User -> ContactId -> IO () Source #

getDirectUnreadTimedItems :: Connection -> User -> ContactId -> IO [(ChatItemId, Int)] Source #

updateDirectChatItemsReadList :: Connection -> User -> ContactId -> NonEmpty ChatItemId -> IO [(ChatItemId, Int)] Source #

setDirectChatItemRead :: Connection -> User -> ContactId -> ChatItemId -> IO () Source #

setDirectChatItemsDeleteAt :: Connection -> User -> ContactId -> [(ChatItemId, Int)] -> UTCTime -> IO [(ChatItemId, UTCTime)] Source #

updateGroupChatItemsRead :: Connection -> User -> GroupInfo -> IO () Source #

updateSupportChatItemsRead :: Connection -> VersionRangeChat -> User -> GroupInfo -> GroupChatScopeInfo -> IO (GroupInfo, GroupMember) Source #

getGroupUnreadTimedItems :: Connection -> User -> GroupId -> Maybe GroupChatScope -> IO [(ChatItemId, Int)] Source #

updateGroupChatItemsReadList :: Connection -> VersionRangeChat -> User -> GroupInfo -> Maybe GroupChatScopeInfo -> NonEmpty ChatItemId -> ExceptT StoreError IO ([(ChatItemId, Int)], GroupInfo) Source #

updateGroupScopeUnreadStats :: Connection -> VersionRangeChat -> User -> GroupInfo -> GroupChatScopeInfo -> (Int, Int, Int) -> IO GroupInfo Source #

setGroupChatItemsDeleteAt :: Connection -> User -> GroupId -> [(ChatItemId, Int)] -> UTCTime -> IO [(ChatItemId, UTCTime)] Source #

updateLocalChatItemsRead :: Connection -> User -> NoteFolderId -> IO () Source #

getChatRefViaItemId :: Connection -> User -> ChatItemId -> ExceptT StoreError IO ChatRef Source #

getChatItemVersions :: Connection -> ChatItemId -> IO [ChatItemVersion] Source #

getDirectCIReactions :: Connection -> Contact -> SharedMsgId -> IO [CIReactionCount] Source #

getDirectReactions :: Connection -> Contact -> SharedMsgId -> Bool -> IO [MsgReaction] Source #

setDirectReaction :: Connection -> Contact -> SharedMsgId -> Bool -> MsgReaction -> Bool -> MessageId -> UTCTime -> IO () Source #

getGroupCIReactions :: Connection -> GroupInfo -> MemberId -> SharedMsgId -> IO [CIReactionCount] Source #

getGroupReactions :: Connection -> GroupInfo -> GroupMember -> MemberId -> SharedMsgId -> Bool -> IO [MsgReaction] Source #

setGroupReaction :: Connection -> GroupInfo -> GroupMember -> MemberId -> SharedMsgId -> Bool -> MsgReaction -> Bool -> MessageId -> UTCTime -> IO () Source #

getReactionMembers :: Connection -> VersionRangeChat -> User -> GroupId -> SharedMsgId -> MsgReaction -> IO [MemberReaction] Source #

getChatItemIdsByAgentMsgId :: Connection -> Int64 -> AgentMsgId -> IO [ChatItemId] Source #

getDirectChatItem :: Connection -> User -> Int64 -> ChatItemId -> ExceptT StoreError IO (CChatItem 'CTDirect) Source #

getDirectCIWithReactions :: Connection -> User -> Contact -> ChatItemId -> ExceptT StoreError IO (CChatItem 'CTDirect) Source #

getDirectChatItemBySharedMsgId :: Connection -> User -> ContactId -> SharedMsgId -> ExceptT StoreError IO (CChatItem 'CTDirect) Source #

getDirectChatItemsByAgentMsgId :: Connection -> User -> ContactId -> Int64 -> AgentMsgId -> IO [CChatItem 'CTDirect] Source #

getGroupChatItem :: Connection -> User -> Int64 -> ChatItemId -> ExceptT StoreError IO (CChatItem 'CTGroup) Source #

getGroupCIWithReactions :: Connection -> User -> GroupInfo -> ChatItemId -> ExceptT StoreError IO (CChatItem 'CTGroup) Source #

getGroupChatItemBySharedMsgId :: Connection -> User -> GroupInfo -> GroupMemberId -> SharedMsgId -> ExceptT StoreError IO (CChatItem 'CTGroup) Source #

getGroupMemberCIBySharedMsgId :: Connection -> User -> GroupInfo -> MemberId -> SharedMsgId -> ExceptT StoreError IO (CChatItem 'CTGroup) Source #

getGroupChatItemsByAgentMsgId :: Connection -> User -> GroupId -> Int64 -> AgentMsgId -> IO [CChatItem 'CTGroup] Source #

getGroupMemberChatItemLast :: Connection -> User -> GroupId -> GroupMemberId -> ExceptT StoreError IO (CChatItem 'CTGroup) Source #

getLocalChatItem :: Connection -> User -> Int64 -> ChatItemId -> ExceptT StoreError IO (CChatItem 'CTLocal) Source #

updateLocalChatItem' :: forall (d :: MsgDirection). MsgDirectionI d => Connection -> User -> NoteFolderId -> ChatItem 'CTLocal d -> CIContent d -> Bool -> IO (ChatItem 'CTLocal d) Source #

getDirectChatItemIdByText :: forall (d :: MsgDirection). Connection -> UserId -> Int64 -> SMsgDirection d -> Text -> ExceptT StoreError IO ChatItemId Source #

getDirectChatItemIdByText' :: Connection -> User -> ContactId -> Text -> ExceptT StoreError IO ChatItemId Source #

getGroupChatItemIdByText :: Connection -> User -> GroupId -> Maybe ContactName -> Text -> ExceptT StoreError IO ChatItemId Source #

getGroupChatItemIdByText' :: Connection -> User -> GroupId -> Text -> ExceptT StoreError IO ChatItemId Source #

getLocalChatItemIdByText :: forall (d :: MsgDirection). Connection -> User -> NoteFolderId -> SMsgDirection d -> Text -> ExceptT StoreError IO ChatItemId Source #

getLocalChatItemIdByText' :: Connection -> User -> NoteFolderId -> Text -> ExceptT StoreError IO ChatItemId Source #

getChatItemByFileId :: Connection -> VersionRangeChat -> User -> Int64 -> ExceptT StoreError IO AChatItem Source #

lookupChatItemByFileId :: Connection -> VersionRangeChat -> User -> Int64 -> ExceptT StoreError IO (Maybe AChatItem) Source #

getChatItemByGroupId :: Connection -> VersionRangeChat -> User -> GroupId -> ExceptT StoreError IO AChatItem Source #

updateDirectChatItemStatus :: forall (d :: MsgDirection). MsgDirectionI d => Connection -> User -> Contact -> ChatItemId -> CIStatus d -> ExceptT StoreError IO (ChatItem 'CTDirect d) Source #

setDirectSndChatItemViaProxy :: Connection -> User -> Contact -> ChatItem 'CTDirect 'MDSnd -> Bool -> IO (ChatItem 'CTDirect 'MDSnd) Source #

getTimedItems :: Connection -> User -> UTCTime -> IO [((ChatRef, ChatItemId), UTCTime)] Source #

getChatItemTTL :: Connection -> User -> IO Int64 Source #

setChatItemTTL :: Connection -> User -> Int64 -> IO () Source #

getChatTTLCount :: Connection -> User -> IO Int Source #

getContactExpiredFileInfo :: Connection -> User -> Contact -> UTCTime -> IO [CIFileInfo] Source #

deleteContactExpiredCIs :: Connection -> User -> Contact -> UTCTime -> IO () Source #

getGroupExpiredFileInfo :: Connection -> User -> GroupInfo -> UTCTime -> UTCTime -> IO [CIFileInfo] Source #

deleteGroupExpiredCIs :: Connection -> User -> GroupInfo -> UTCTime -> UTCTime -> IO () Source #

createCIModeration :: Connection -> GroupInfo -> GroupMember -> MemberId -> SharedMsgId -> MessageId -> UTCTime -> IO () Source #

getCIModeration :: Connection -> VersionRangeChat -> User -> GroupInfo -> MemberId -> Maybe SharedMsgId -> IO (Maybe CIModeration) Source #

deleteCIModeration :: Connection -> GroupInfo -> MemberId -> Maybe SharedMsgId -> IO () Source #

createGroupSndStatus :: Connection -> ChatItemId -> GroupMemberId -> GroupSndStatus -> IO () Source #

getGroupSndStatus :: Connection -> ChatItemId -> GroupMemberId -> ExceptT StoreError IO GroupSndStatus Source #

updateGroupSndStatus :: Connection -> ChatItemId -> GroupMemberId -> GroupSndStatus -> IO () Source #

setGroupSndViaProxy :: Connection -> ChatItemId -> GroupMemberId -> Bool -> IO () Source #

getGroupSndStatuses :: Connection -> ChatItemId -> IO [MemberDeliveryStatus] Source #

getGroupSndStatusCounts :: Connection -> ChatItemId -> IO [(GroupSndStatus, Int)] Source #

getGroupHistoryItems :: Connection -> User -> GroupInfo -> GroupMember -> Int -> IO [Either StoreError (CChatItem 'CTGroup)] Source #