Safe Haskell	None
Language	Haskell2010

Simplex.Chat.Messages

Synopsis

data ChatType
- = CTDirect
- | CTGroup
- | CTLocal
- | CTContactRequest
- | CTContactConnection
data SChatType (c :: ChatType) where
- SCTDirect :: SChatType 'CTDirect
- SCTGroup :: SChatType 'CTGroup
- SCTLocal :: SChatType 'CTLocal
- SCTContactRequest :: SChatType 'CTContactRequest
- SCTContactConnection :: SChatType 'CTContactConnection
data AChatType = ChatTypeI c => ACT (SChatType c)
class ChatTypeI (c :: ChatType) where
- chatTypeI :: SChatType c
toChatType :: forall (c :: ChatType). SChatType c -> ChatType
aChatType :: ChatType -> AChatType
checkChatType :: forall t (c :: ChatType) (c' :: ChatType). (ChatTypeI c, ChatTypeI c') => t c' -> Either String (t c)
data GroupChatScope = GCSMemberSupport {
- groupMemberId_ :: Maybe GroupMemberId
}
data GroupChatScopeTag = GCSTMemberSupport_
data ChatName = ChatName {
- chatType :: ChatType
- chatName :: Text
}
data SendName
- = SNDirect ContactName
- | SNGroup GroupName (Maybe GroupScopeName)
- | SNLocal
data GroupScopeName = GSNMemberSupport (Maybe ContactName)
chatTypeStr :: ChatType -> Text
chatNameStr :: ChatName -> String
data ChatRef = ChatRef {
- chatType :: ChatType
- chatId :: Int64
- chatScope :: Maybe GroupChatScope
}
data ChatInfo (c :: ChatType) where
- DirectChat :: Contact -> ChatInfo 'CTDirect
- GroupChat :: GroupInfo -> Maybe GroupChatScopeInfo -> ChatInfo 'CTGroup
- LocalChat :: NoteFolder -> ChatInfo 'CTLocal
- ContactRequest :: UserContactRequest -> ChatInfo 'CTContactRequest
- ContactConnection :: PendingContactConnection -> ChatInfo 'CTContactConnection
- CInfoInvalidJSON :: forall (c :: ChatType). SChatType c -> Object -> ChatInfo c
data GroupChatScopeInfo = GCSIMemberSupport {
- groupMember_ :: Maybe GroupMember
}
toChatScope :: GroupChatScopeInfo -> GroupChatScope
toMsgScope :: GroupInfo -> GroupChatScopeInfo -> MsgScope
chatInfoToRef :: forall (c :: ChatType). ChatInfo c -> Maybe ChatRef
chatInfoMembership :: forall (c :: ChatType). ChatInfo c -> Maybe GroupMember
data JSONChatInfo
- = JCInfoDirect {
  - contact :: Contact
  }
- | JCInfoGroup {
  - groupInfo :: GroupInfo
  - groupChatScope :: Maybe GroupChatScopeInfo
  }
- | JCInfoLocal {
  - noteFolder :: NoteFolder
  }
- | JCInfoContactRequest {
  - contactRequest :: UserContactRequest
  }
- | JCInfoContactConnection {
  - contactConnection :: PendingContactConnection
  }
- | JCInfoInvalidJSON {
  - chatType :: ChatType
  - json :: Object
  }
jsonChatInfo :: forall (c :: ChatType). ChatInfo c -> JSONChatInfo
data AChatInfo = ChatTypeI c => AChatInfo (SChatType c) (ChatInfo c)
jsonAChatInfo :: JSONChatInfo -> AChatInfo
data ChatItem (c :: ChatType) (d :: MsgDirection) = ChatItem {
- chatDir :: CIDirection c d
- meta :: CIMeta c d
- content :: CIContent d
- mentions :: Map MemberName CIMention
- formattedText :: Maybe MarkdownList
- quotedItem :: Maybe (CIQuote c)
- reactions :: [CIReactionCount]
- file :: Maybe (CIFile d)
}
data CIMention = CIMention {
- memberId :: MemberId
- memberRef :: Maybe CIMentionMember
}
data CIMentionMember = CIMentionMember {
- groupMemberId :: GroupMemberId
- displayName :: Text
- localAlias :: Maybe Text
- memberRole :: GroupMemberRole
}
isACIUserMention :: AChatItem -> Bool
isUserMention :: forall (c :: ChatType) (d :: MsgDirection). ChatItem c d -> Bool
data CIDirection (c :: ChatType) (d :: MsgDirection) where
- CIDirectSnd :: CIDirection 'CTDirect 'MDSnd
- CIDirectRcv :: CIDirection 'CTDirect 'MDRcv
- CIGroupSnd :: CIDirection 'CTGroup 'MDSnd
- CIGroupRcv :: GroupMember -> CIDirection 'CTGroup 'MDRcv
- CILocalSnd :: CIDirection 'CTLocal 'MDSnd
- CILocalRcv :: CIDirection 'CTLocal 'MDRcv
data CCIDirection (c :: ChatType) = MsgDirectionI d => CCID (SMsgDirection d) (CIDirection c d)
data ACIDirection = (ChatTypeI c, MsgDirectionI d) => ACID (SChatType c) (SMsgDirection d) (CIDirection c d)
data JSONCIDirection
- = JCIDirectSnd
- | JCIDirectRcv
- | JCIGroupSnd
- | JCIGroupRcv {
  - groupMember :: GroupMember
  }
- | JCILocalSnd
- | JCILocalRcv
jsonCIDirection :: forall (c :: ChatType) (d :: MsgDirection). CIDirection c d -> JSONCIDirection
jsonACIDirection :: JSONCIDirection -> ACIDirection
data CIReactionCount = CIReactionCount {
- reaction :: MsgReaction
- userReacted :: Bool
- totalReacted :: Int
}
data CChatItem (c :: ChatType) = MsgDirectionI d => CChatItem (SMsgDirection d) (ChatItem c d)
cChatItemId :: forall (c :: ChatType). CChatItem c -> ChatItemId
chatItemId' :: forall (c :: ChatType) (d :: MsgDirection). ChatItem c d -> ChatItemId
chatItemTs :: forall (c :: ChatType). CChatItem c -> UTCTime
chatItemTs' :: forall (c :: ChatType) (d :: MsgDirection). ChatItem c d -> UTCTime
ciCreatedAt :: forall (c :: ChatType). CChatItem c -> UTCTime
ciCreatedAt' :: forall (c :: ChatType) (d :: MsgDirection). ChatItem c d -> UTCTime
chatItemTimed :: forall (c :: ChatType) (d :: MsgDirection). ChatItem c d -> Maybe CITimed
timedDeleteAt' :: CITimed -> Maybe UTCTime
chatItemMember :: forall (d :: MsgDirection). GroupInfo -> ChatItem 'CTGroup d -> GroupMember
chatItemRcvFromMember :: forall (c :: ChatType) (d :: MsgDirection). ChatItem c d -> Maybe GroupMember
chatItemIsRcvNew :: forall (c :: ChatType) (d :: MsgDirection). ChatItem c d -> Bool
ciReactionAllowed :: forall (c :: ChatType) (d :: MsgDirection). ChatItem c d -> Bool
data ChatDirection (c :: ChatType) (d :: MsgDirection) where
- CDDirectSnd :: Contact -> ChatDirection 'CTDirect 'MDSnd
- CDDirectRcv :: Contact -> ChatDirection 'CTDirect 'MDRcv
- CDGroupSnd :: GroupInfo -> Maybe GroupChatScopeInfo -> ChatDirection 'CTGroup 'MDSnd
- CDGroupRcv :: GroupInfo -> Maybe GroupChatScopeInfo -> GroupMember -> ChatDirection 'CTGroup 'MDRcv
- CDLocalSnd :: NoteFolder -> ChatDirection 'CTLocal 'MDSnd
- CDLocalRcv :: NoteFolder -> ChatDirection 'CTLocal 'MDRcv
toCIDirection :: forall (c :: ChatType) (d :: MsgDirection). ChatDirection c d -> CIDirection c d
toChatInfo :: forall (c :: ChatType) (d :: MsgDirection). ChatDirection c d -> ChatInfo c
contactChatDeleted :: forall (c :: ChatType) (d :: MsgDirection). ChatDirection c d -> Bool
data NewChatItem (d :: MsgDirection) = NewChatItem {
- createdByMsgId :: Maybe MessageId
- itemSent :: SMsgDirection d
- itemTs :: ChatItemTs
- itemContent :: CIContent d
- itemText :: Text
- itemStatus :: CIStatus d
- itemSharedMsgId :: Maybe SharedMsgId
- itemQuotedMsg :: Maybe QuotedMsg
- createdAt :: UTCTime
}
data Chat (c :: ChatType) = Chat {
- chatInfo :: ChatInfo c
- chatItems :: [CChatItem c]
- chatStats :: ChatStats
}
data AChat = ChatTypeI c => AChat (SChatType c) (Chat c)
data ChatStats = ChatStats {
- unreadCount :: Int
- unreadMentions :: Int
- reportsCount :: Int
- minUnreadItemId :: ChatItemId
- unreadChat :: Bool
}
emptyChatStats :: ChatStats
data NavigationInfo = NavigationInfo {
- afterUnread :: Int
- afterTotal :: Int
}
data AChatItem = (ChatTypeI c, MsgDirectionI d) => AChatItem (SChatType c) (SMsgDirection d) (ChatInfo c) (ChatItem c d)
data JSONAnyChatItem (c :: ChatType) (d :: MsgDirection) = JSONAnyChatItem {
- chatInfo :: ChatInfo c
- chatItem :: ChatItem c d
}
aChatItems :: AChat -> [AChatItem]
aChatItemId :: AChatItem -> Int64
aChatItemTs :: AChatItem -> UTCTime
aChatItemDir :: AChatItem -> MsgDirection
aChatItemRcvFromMember :: AChatItem -> Maybe GroupMember
aChatItemIsRcvNew :: AChatItem -> Bool
updateFileStatus :: forall (c :: ChatType) (d :: MsgDirection). ChatItem c d -> CIFileStatus d -> ChatItem c d
data CIMeta (c :: ChatType) (d :: MsgDirection) = CIMeta {
- itemId :: ChatItemId
- itemTs :: ChatItemTs
- itemText :: Text
- itemStatus :: CIStatus d
- sentViaProxy :: Maybe Bool
- itemSharedMsgId :: Maybe SharedMsgId
- itemForwarded :: Maybe CIForwardedFrom
- itemDeleted :: Maybe (CIDeleted c)
- itemEdited :: Bool
- itemTimed :: Maybe CITimed
- itemLive :: Maybe Bool
- userMention :: Bool
- deletable :: Bool
- editable :: Bool
- forwardedByMember :: Maybe GroupMemberId
- showGroupAsSender :: ShowGroupAsSender
- createdAt :: UTCTime
- updatedAt :: UTCTime
}
type ShowGroupAsSender = Bool
mkCIMeta :: forall (c :: ChatType) (d :: MsgDirection). ChatTypeI c => ChatItemId -> CIContent d -> Text -> CIStatus d -> Maybe Bool -> Maybe SharedMsgId -> Maybe CIForwardedFrom -> Maybe (CIDeleted c) -> Bool -> Maybe CITimed -> Maybe Bool -> Bool -> UTCTime -> ChatItemTs -> Maybe GroupMemberId -> Bool -> UTCTime -> UTCTime -> CIMeta c d
deletable' :: forall (c :: ChatType) (d :: MsgDirection). ChatTypeI c => CIContent d -> Maybe (CIDeleted c) -> UTCTime -> NominalDiffTime -> UTCTime -> Bool
dummyMeta :: forall (c :: ChatType). ChatItemId -> UTCTime -> Text -> CIMeta c 'MDSnd
data CITimed = CITimed {
- ttl :: Int
- deleteAt :: Maybe UTCTime
}
ttl' :: CITimed -> Int
contactTimedTTL :: Contact -> Maybe (Maybe Int)
groupTimedTTL :: GroupInfo -> Maybe (Maybe Int)
rcvContactCITimed :: Contact -> Maybe Int -> Maybe CITimed
rcvGroupCITimed :: GroupInfo -> Maybe Int -> Maybe CITimed
rcvCITimed_ :: Maybe (Maybe Int) -> Maybe Int -> Maybe CITimed
data CIQuote (c :: ChatType) = CIQuote {
- chatDir :: CIQDirection c
- itemId :: Maybe ChatItemId
- sharedMsgId :: Maybe SharedMsgId
- sentAt :: UTCTime
- content :: MsgContent
- formattedText :: Maybe MarkdownList
}
quoteItemId :: forall (c :: ChatType). CIQuote c -> Maybe ChatItemId
data CIReaction (c :: ChatType) (d :: MsgDirection) = CIReaction {
- chatDir :: CIDirection c d
- chatItem :: CChatItem c
- sentAt :: UTCTime
- reaction :: MsgReaction
}
data AnyCIReaction = ChatTypeI c => ACIR (SChatType c) (SMsgDirection d) (CIReaction c d)
data ACIReaction = ChatTypeI c => ACIReaction (SChatType c) (SMsgDirection d) (ChatInfo c) (CIReaction c d)
data JSONCIReaction (c :: ChatType) (d :: MsgDirection) = JSONCIReaction {
- chatInfo :: ChatInfo c
- chatReaction :: CIReaction c d
}
data MemberReaction = MemberReaction {
- groupMember :: GroupMember
- reactionTs :: UTCTime
}
type family ChatTypeQuotable (a :: ChatType) where ...
data CIQDirection (c :: ChatType) where
- CIQDirectSnd :: CIQDirection 'CTDirect
- CIQDirectRcv :: CIQDirection 'CTDirect
- CIQGroupSnd :: CIQDirection 'CTGroup
- CIQGroupRcv :: Maybe GroupMember -> CIQDirection 'CTGroup
data ACIQDirection = (ChatTypeI c, ChatTypeQuotable c) => ACIQDirection (SChatType c) (CIQDirection c)
jsonCIQDirection :: forall (c :: ChatType). CIQDirection c -> Maybe JSONCIDirection
jsonACIQDirection :: Maybe JSONCIDirection -> Either String ACIQDirection
quoteMsgDirection :: forall (c :: ChatType). CIQDirection c -> MsgDirection
data CIFile (d :: MsgDirection) = CIFile {
- fileId :: Int64
- fileName :: String
- fileSize :: Integer
- fileSource :: Maybe CryptoFile
- fileStatus :: CIFileStatus d
- fileProtocol :: FileProtocol
}
data FileProtocol
- = FPSMP
- | FPXFTP
- | FPLocal
data CIFileStatus (d :: MsgDirection) where
- CIFSSndStored :: CIFileStatus 'MDSnd
- CIFSSndTransfer :: {..} -> CIFileStatus 'MDSnd
- CIFSSndCancelled :: CIFileStatus 'MDSnd
- CIFSSndComplete :: CIFileStatus 'MDSnd
- CIFSSndError :: {..} -> CIFileStatus 'MDSnd
- CIFSSndWarning :: {..} -> CIFileStatus 'MDSnd
- CIFSRcvInvitation :: CIFileStatus 'MDRcv
- CIFSRcvAccepted :: CIFileStatus 'MDRcv
- CIFSRcvTransfer :: {..} -> CIFileStatus 'MDRcv
- CIFSRcvAborted :: CIFileStatus 'MDRcv
- CIFSRcvComplete :: CIFileStatus 'MDRcv
- CIFSRcvCancelled :: CIFileStatus 'MDRcv
- CIFSRcvError :: {..} -> CIFileStatus 'MDRcv
- CIFSRcvWarning :: {..} -> CIFileStatus 'MDRcv
- CIFSInvalid :: {..} -> CIFileStatus 'MDSnd
ciFileEnded :: forall (d :: MsgDirection). CIFileStatus d -> Bool
ciFileLoaded :: forall (d :: MsgDirection). CIFileStatus d -> Bool
data ForwardFileError
- = FFENotAccepted FileTransferId
- | FFEInProgress
- | FFEFailed
- | FFEMissing
ciFileForwardError :: forall (d :: MsgDirection). FileTransferId -> CIFileStatus d -> Maybe ForwardFileError
data ACIFileStatus = MsgDirectionI d => AFS (SMsgDirection d) (CIFileStatus d)
data JSONCIFileStatus
- = JCIFSSndStored
- | JCIFSSndTransfer {
  - sndProgress :: Int64
  - sndTotal :: Int64
  }
- | JCIFSSndCancelled
- | JCIFSSndComplete
- | JCIFSSndError {
  - sndFileError :: FileError
  }
- | JCIFSSndWarning {
  - sndFileError :: FileError
  }
- | JCIFSRcvInvitation
- | JCIFSRcvAccepted
- | JCIFSRcvTransfer {
  - rcvProgress :: Int64
  - rcvTotal :: Int64
  }
- | JCIFSRcvAborted
- | JCIFSRcvComplete
- | JCIFSRcvCancelled
- | JCIFSRcvError {
  - rcvFileError :: FileError
  }
- | JCIFSRcvWarning {
  - rcvFileError :: FileError
  }
- | JCIFSInvalid {
  - text :: Text
  }
jsonCIFileStatus :: forall (d :: MsgDirection). CIFileStatus d -> JSONCIFileStatus
aciFileStatusJSON :: JSONCIFileStatus -> ACIFileStatus
data FileError
- = FileErrAuth
- | FileErrBlocked {
  - server :: String
  - blockInfo :: BlockingInfo
  }
- | FileErrNoFile
- | FileErrRelay {
  - srvError :: SrvError
  }
- | FileErrOther {
  - fileError :: Text
  }
data CIFileInfo = CIFileInfo {
- fileId :: Int64
- fileStatus :: Maybe ACIFileStatus
- filePath :: Maybe FilePath
}
mkCIFileInfo :: forall (d :: MsgDirection). MsgDirectionI d => CIFile d -> CIFileInfo
data CIStatus (d :: MsgDirection) where
- CISSndNew :: CIStatus 'MDSnd
- CISSndSent :: SndCIStatusProgress -> CIStatus 'MDSnd
- CISSndRcvd :: MsgReceiptStatus -> SndCIStatusProgress -> CIStatus 'MDSnd
- CISSndErrorAuth :: CIStatus 'MDSnd
- CISSndError :: SndError -> CIStatus 'MDSnd
- CISSndWarning :: SndError -> CIStatus 'MDSnd
- CISRcvNew :: CIStatus 'MDRcv
- CISRcvRead :: CIStatus 'MDRcv
- CISInvalid :: Text -> CIStatus 'MDSnd
data ACIStatus = MsgDirectionI d => ACIStatus (SMsgDirection d) (CIStatus d)
data SndError
- = SndErrAuth
- | SndErrQuota
- | SndErrExpired
- | SndErrRelay {
  - srvError :: SrvError
  }
- | SndErrProxy {
  - proxyServer :: String
  - srvError :: SrvError
  }
- | SndErrProxyRelay {
  - proxyServer :: String
  - srvError :: SrvError
  }
- | SndErrOther {
  - sndError :: Text
  }
data SrvError
- = SrvErrHost
- | SrvErrVersion
- | SrvErrOther {
  - srvError :: Text
  }
data JSONCIStatus
- = JCISSndNew
- | JCISSndSent {
  - sndProgress :: SndCIStatusProgress
  }
- | JCISSndRcvd {
  - msgRcptStatus :: MsgReceiptStatus
  - sndProgress :: SndCIStatusProgress
  }
- | JCISSndErrorAuth
- | JCISSndError {
  - agentError :: SndError
  }
- | JCISSndWarning {
  - agentError :: SndError
  }
- | JCISRcvNew
- | JCISRcvRead
- | JCISInvalid {
  - text :: Text
  }
jsonCIStatus :: forall (d :: MsgDirection). CIStatus d -> JSONCIStatus
jsonACIStatus :: JSONCIStatus -> ACIStatus
ciStatusNew :: forall (d :: MsgDirection). MsgDirectionI d => CIStatus d
ciCreateStatus :: forall (d :: MsgDirection). MsgDirectionI d => CIContent d -> CIStatus d
membersGroupItemStatus :: [(GroupSndStatus, Int)] -> CIStatus 'MDSnd
data SndCIStatusProgress
- = SSPPartial
- | SSPComplete
data GroupSndStatus
- = GSSNew
- | GSSForwarded
- | GSSInactive
- | GSSSent
- | GSSRcvd {
  - msgRcptStatus :: MsgReceiptStatus
  }
- | GSSError {
  - agentError :: SndError
  }
- | GSSWarning {
  - agentError :: SndError
  }
- | GSSInvalid {
  - text :: Text
  }
type ChatItemId = Int64
type ChatItemTs = UTCTime
data SndMessage = SndMessage {
- msgId :: MessageId
- sharedMsgId :: SharedMsgId
- msgBody :: MsgBody
}
data NewRcvMessage (e :: MsgEncoding) = NewRcvMessage {
- chatMsgEvent :: ChatMsgEvent e
- msgBody :: MsgBody
- brokerTs :: UTCTime
}
data RcvMessage = RcvMessage {
- msgId :: MessageId
- chatMsgEvent :: AChatMsgEvent
- sharedMsgId_ :: Maybe SharedMsgId
- msgBody :: MsgBody
- authorMember :: Maybe GroupMemberId
- forwardedByMember :: Maybe GroupMemberId
}
type MessageId = Int64
data ConnOrGroupId
- = ConnectionId Int64
- | GroupId Int64
data SndMsgDelivery = SndMsgDelivery {
- connId :: Int64
- agentMsgId :: AgentMsgId
}
data RcvMsgDelivery = RcvMsgDelivery {
- connId :: Int64
- agentMsgId :: AgentMsgId
- agentMsgMeta :: MsgMeta
}
data RcvMsgInfo = RcvMsgInfo {
- msgId :: Int64
- msgDeliveryId :: Int64
- msgDeliveryStatus :: Text
- agentMsgId :: AgentMsgId
- agentMsgMeta :: Text
}
data MsgMetaJSON = MsgMetaJSON {
- integrity :: Text
- rcvId :: Int64
- rcvTs :: UTCTime
- serverId :: Text
- serverTs :: UTCTime
- sndId :: Int64
}
msgMetaToJson :: MsgMeta -> MsgMetaJSON
data MsgDeliveryStatus (d :: MsgDirection) where
- MDSRcvAgent :: MsgDeliveryStatus 'MDRcv
- MDSRcvAcknowledged :: MsgDeliveryStatus 'MDRcv
- MDSSndPending :: MsgDeliveryStatus 'MDSnd
- MDSSndAgent :: MsgDeliveryStatus 'MDSnd
- MDSSndSent :: MsgDeliveryStatus 'MDSnd
- MDSSndRcvd :: MsgReceiptStatus -> MsgDeliveryStatus 'MDSnd
- MDSSndRead :: MsgDeliveryStatus 'MDSnd
data AMsgDeliveryStatus = AMDS (SMsgDirection d) (MsgDeliveryStatus d)
serializeMsgDeliveryStatus :: forall (d :: MsgDirection). MsgDeliveryStatus d -> Text
msgDeliveryStatusT :: Text -> Maybe AMsgDeliveryStatus
msgDeliveryStatusT' :: forall (d :: MsgDirection). MsgDirectionI d => Text -> Maybe (MsgDeliveryStatus d)
data CIDeleted (c :: ChatType) where
- CIDeleted :: forall (c :: ChatType). Maybe UTCTime -> CIDeleted c
- CIBlocked :: Maybe UTCTime -> CIDeleted 'CTGroup
- CIBlockedByAdmin :: Maybe UTCTime -> CIDeleted 'CTGroup
- CIModerated :: Maybe UTCTime -> GroupMember -> CIDeleted 'CTGroup
data ACIDeleted = ChatTypeI c => ACIDeleted (SChatType c) (CIDeleted c)
data JSONCIDeleted
- = JCIDDeleted {
  - deletedTs :: Maybe UTCTime
  - chatType :: ChatType
  }
- | JCIDBlocked {
  - deletedTs :: Maybe UTCTime
  }
- | JCIDBlockedByAdmin {
  - deletedTs :: Maybe UTCTime
  }
- | JCIDModerated {
  - deletedTs :: Maybe UTCTime
  - byGroupMember :: GroupMember
  }
jsonCIDeleted :: forall (d :: ChatType). ChatTypeI d => CIDeleted d -> JSONCIDeleted
jsonACIDeleted :: JSONCIDeleted -> ACIDeleted
itemDeletedTs :: forall (d :: ChatType). CIDeleted d -> Maybe UTCTime
data CIForwardedFrom
- = CIFFUnknown
- | CIFFContact {
  - chatName :: Text
  - msgDir :: MsgDirection
  - contactId :: Maybe ContactId
  - chatItemId :: Maybe ChatItemId
  }
- | CIFFGroup {
  - chatName :: Text
  - msgDir :: MsgDirection
  - groupId :: Maybe GroupId
  - chatItemId :: Maybe ChatItemId
  }
cmForwardedFrom :: AChatMsgEvent -> Maybe CIForwardedFrom
data CIForwardedFromTag
- = CIFFUnknown_
- | CIFFContact_
- | CIFFGroup_
data ChatItemInfo = ChatItemInfo {
- itemVersions :: [ChatItemVersion]
- memberDeliveryStatuses :: Maybe (NonEmpty MemberDeliveryStatus)
- forwardedFromChatItem :: Maybe AChatItem
}
data ChatItemVersion = ChatItemVersion {
- chatItemVersionId :: Int64
- msgContent :: MsgContent
- formattedText :: Maybe MarkdownList
- itemVersionTs :: UTCTime
- createdAt :: UTCTime
}
mkItemVersion :: forall (c :: ChatType) (d :: MsgDirection). ChatItem c d -> Maybe ChatItemVersion
data MemberDeliveryStatus = MemberDeliveryStatus {
- groupMemberId :: GroupMemberId
- memberDeliveryStatus :: GroupSndStatus
- sentViaProxy :: Maybe Bool
}
data CIModeration = CIModeration {
- moderationId :: Int64
- moderatorMember :: GroupMember
- createdByMsgId :: MessageId
- moderatedAt :: UTCTime
}
msgMetaJson :: MsgMeta -> Text

Documentation

data ChatType Source #

Constructors

CTDirect
CTGroup
CTLocal
CTContactRequest
CTContactConnection

Instances

Instances details

FromJSON ChatType Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser ChatType parseJSONList :: Value -> Parser [ChatType] omittedField :: Maybe ChatType
ToJSON ChatType Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: ChatType -> Value toEncoding :: ChatType -> Encoding toJSONList :: [ChatType] -> Value toEncodingList :: [ChatType] -> Encoding omitField :: ChatType -> Bool
Show ChatType Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> ChatType -> ShowS show :: ChatType -> String showList :: [ChatType] -> ShowS
Eq ChatType Source #
Instance details Defined in Simplex.Chat.Messages Methods (==) :: ChatType -> ChatType -> Bool (/=) :: ChatType -> ChatType -> Bool
Ord ChatType Source #
Instance details Defined in Simplex.Chat.Messages Methods compare :: ChatType -> ChatType -> Ordering (<) :: ChatType -> ChatType -> Bool (<=) :: ChatType -> ChatType -> Bool (>) :: ChatType -> ChatType -> Bool (>=) :: ChatType -> ChatType -> Bool max :: ChatType -> ChatType -> ChatType min :: ChatType -> ChatType -> ChatType
TestEquality SChatType Source #
Instance details Defined in Simplex.Chat.Messages Methods testEquality :: forall (a :: ChatType) (b :: ChatType). SChatType a -> SChatType b -> Maybe (a :~: b)

data SChatType (c :: ChatType) where Source #

Constructors

SCTDirect :: SChatType 'CTDirect
SCTGroup :: SChatType 'CTGroup
SCTLocal :: SChatType 'CTLocal
SCTContactRequest :: SChatType 'CTContactRequest
SCTContactConnection :: SChatType 'CTContactConnection

Instances

Instances details

TestEquality SChatType Source #
Instance details Defined in Simplex.Chat.Messages Methods testEquality :: forall (a :: ChatType) (b :: ChatType). SChatType a -> SChatType b -> Maybe (a :~: b)
ChatTypeI c => FromJSON (SChatType c) Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser (SChatType c) parseJSONList :: Value -> Parser [SChatType c] omittedField :: Maybe (SChatType c)
ToJSON (SChatType c) Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: SChatType c -> Value toEncoding :: SChatType c -> Encoding toJSONList :: [SChatType c] -> Value toEncodingList :: [SChatType c] -> Encoding omitField :: SChatType c -> Bool
Show (SChatType c) Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> SChatType c -> ShowS show :: SChatType c -> String showList :: [SChatType c] -> ShowS

data AChatType Source #

Constructors

ChatTypeI c => ACT (SChatType c)

class ChatTypeI (c :: ChatType) where Source #

Methods

chatTypeI :: SChatType c Source #

Instances

Instances details

ChatTypeI 'CTContactConnection Source #
Instance details Defined in Simplex.Chat.Messages Methods chatTypeI :: SChatType 'CTContactConnection Source #
ChatTypeI 'CTContactRequest Source #
Instance details Defined in Simplex.Chat.Messages Methods chatTypeI :: SChatType 'CTContactRequest Source #
ChatTypeI 'CTDirect Source #
Instance details Defined in Simplex.Chat.Messages Methods chatTypeI :: SChatType 'CTDirect Source #
ChatTypeI 'CTGroup Source #
Instance details Defined in Simplex.Chat.Messages Methods chatTypeI :: SChatType 'CTGroup Source #
ChatTypeI 'CTLocal Source #
Instance details Defined in Simplex.Chat.Messages Methods chatTypeI :: SChatType 'CTLocal Source #

toChatType :: forall (c :: ChatType). SChatType c -> ChatType Source #

aChatType :: ChatType -> AChatType Source #

checkChatType :: forall t (c :: ChatType) (c' :: ChatType). (ChatTypeI c, ChatTypeI c') => t c' -> Either String (t c) Source #

data GroupChatScope Source #

Constructors

GCSMemberSupport
Fields groupMemberId_ :: Maybe GroupMemberId

Instances

Instances details

FromJSON GroupChatScope Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser GroupChatScope parseJSONList :: Value -> Parser [GroupChatScope] omittedField :: Maybe GroupChatScope
ToJSON GroupChatScope Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: GroupChatScope -> Value toEncoding :: GroupChatScope -> Encoding toJSONList :: [GroupChatScope] -> Value toEncodingList :: [GroupChatScope] -> Encoding omitField :: GroupChatScope -> Bool
Show GroupChatScope Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> GroupChatScope -> ShowS show :: GroupChatScope -> String showList :: [GroupChatScope] -> ShowS
Eq GroupChatScope Source #
Instance details Defined in Simplex.Chat.Messages Methods (==) :: GroupChatScope -> GroupChatScope -> Bool (/=) :: GroupChatScope -> GroupChatScope -> Bool
Ord GroupChatScope Source #
Instance details Defined in Simplex.Chat.Messages Methods compare :: GroupChatScope -> GroupChatScope -> Ordering (<) :: GroupChatScope -> GroupChatScope -> Bool (<=) :: GroupChatScope -> GroupChatScope -> Bool (>) :: GroupChatScope -> GroupChatScope -> Bool (>=) :: GroupChatScope -> GroupChatScope -> Bool max :: GroupChatScope -> GroupChatScope -> GroupChatScope min :: GroupChatScope -> GroupChatScope -> GroupChatScope

data GroupChatScopeTag Source #

Constructors

GCSTMemberSupport_

Instances

Instances details

Show GroupChatScopeTag Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> GroupChatScopeTag -> ShowS show :: GroupChatScopeTag -> String showList :: [GroupChatScopeTag] -> ShowS
Eq GroupChatScopeTag Source #
Instance details Defined in Simplex.Chat.Messages Methods (==) :: GroupChatScopeTag -> GroupChatScopeTag -> Bool (/=) :: GroupChatScopeTag -> GroupChatScopeTag -> Bool
TextEncoding GroupChatScopeTag Source #
Instance details Defined in Simplex.Chat.Messages Methods textEncode :: GroupChatScopeTag -> Text textDecode :: Text -> Maybe GroupChatScopeTag
FromField GroupChatScopeTag Source #
Instance details Defined in Simplex.Chat.Messages Methods fromField :: FieldParser GroupChatScopeTag #
ToField GroupChatScopeTag Source #
Instance details Defined in Simplex.Chat.Messages Methods toField :: GroupChatScopeTag -> SQLData #

data ChatName Source #

Constructors

ChatName
Fields chatType :: ChatType chatName :: Text

Instances

Instances details

FromJSON ChatName Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser ChatName parseJSONList :: Value -> Parser [ChatName] omittedField :: Maybe ChatName
ToJSON ChatName Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: ChatName -> Value toEncoding :: ChatName -> Encoding toJSONList :: [ChatName] -> Value toEncodingList :: [ChatName] -> Encoding omitField :: ChatName -> Bool
Show ChatName Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> ChatName -> ShowS show :: ChatName -> String showList :: [ChatName] -> ShowS

data SendName Source #

Constructors

SNDirect ContactName
SNGroup GroupName (Maybe GroupScopeName)
SNLocal

Instances

Instances details

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

data GroupScopeName Source #

Constructors

GSNMemberSupport (Maybe ContactName)

Instances

Instances details

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

chatTypeStr :: ChatType -> Text Source #

chatNameStr :: ChatName -> String Source #

data ChatRef Source #

Constructors

ChatRef
Fields chatType :: ChatType chatId :: Int64 chatScope :: Maybe GroupChatScope

Instances

Instances details

Show ChatRef Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> ChatRef -> ShowS show :: ChatRef -> String showList :: [ChatRef] -> ShowS
Eq ChatRef Source #
Instance details Defined in Simplex.Chat.Messages Methods (==) :: ChatRef -> ChatRef -> Bool (/=) :: ChatRef -> ChatRef -> Bool
Ord ChatRef Source #
Instance details Defined in Simplex.Chat.Messages Methods compare :: ChatRef -> ChatRef -> Ordering (<) :: ChatRef -> ChatRef -> Bool (<=) :: ChatRef -> ChatRef -> Bool (>) :: ChatRef -> ChatRef -> Bool (>=) :: ChatRef -> ChatRef -> Bool max :: ChatRef -> ChatRef -> ChatRef min :: ChatRef -> ChatRef -> ChatRef

data ChatInfo (c :: ChatType) where Source #

Constructors

DirectChat :: Contact -> ChatInfo 'CTDirect
GroupChat :: GroupInfo -> Maybe GroupChatScopeInfo -> ChatInfo 'CTGroup
LocalChat :: NoteFolder -> ChatInfo 'CTLocal
ContactRequest :: UserContactRequest -> ChatInfo 'CTContactRequest
ContactConnection :: PendingContactConnection -> ChatInfo 'CTContactConnection
CInfoInvalidJSON :: forall (c :: ChatType). SChatType c -> Object -> ChatInfo c

Instances

Instances details

ChatTypeI c => FromJSON (ChatInfo c) Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser (ChatInfo c) parseJSONList :: Value -> Parser [ChatInfo c] omittedField :: Maybe (ChatInfo c)
ToJSON (ChatInfo c) Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: ChatInfo c -> Value toEncoding :: ChatInfo c -> Encoding toJSONList :: [ChatInfo c] -> Value toEncodingList :: [ChatInfo c] -> Encoding omitField :: ChatInfo c -> Bool
Show (ChatInfo c) Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> ChatInfo c -> ShowS show :: ChatInfo c -> String showList :: [ChatInfo c] -> ShowS

data GroupChatScopeInfo Source #

Constructors

GCSIMemberSupport
Fields groupMember_ :: Maybe GroupMember

Instances

Instances details

FromJSON GroupChatScopeInfo Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser GroupChatScopeInfo parseJSONList :: Value -> Parser [GroupChatScopeInfo] omittedField :: Maybe GroupChatScopeInfo
ToJSON GroupChatScopeInfo Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: GroupChatScopeInfo -> Value toEncoding :: GroupChatScopeInfo -> Encoding toJSONList :: [GroupChatScopeInfo] -> Value toEncodingList :: [GroupChatScopeInfo] -> Encoding omitField :: GroupChatScopeInfo -> Bool
Show GroupChatScopeInfo Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> GroupChatScopeInfo -> ShowS show :: GroupChatScopeInfo -> String showList :: [GroupChatScopeInfo] -> ShowS

toChatScope :: GroupChatScopeInfo -> GroupChatScope Source #

toMsgScope :: GroupInfo -> GroupChatScopeInfo -> MsgScope Source #

chatInfoToRef :: forall (c :: ChatType). ChatInfo c -> Maybe ChatRef Source #

chatInfoMembership :: forall (c :: ChatType). ChatInfo c -> Maybe GroupMember Source #

data JSONChatInfo Source #

Constructors

JCInfoDirect
Fields contact :: Contact
JCInfoGroup
Fields groupInfo :: GroupInfo groupChatScope :: Maybe GroupChatScopeInfo
JCInfoLocal
Fields noteFolder :: NoteFolder
JCInfoContactRequest
Fields contactRequest :: UserContactRequest
JCInfoContactConnection
Fields contactConnection :: PendingContactConnection
JCInfoInvalidJSON
Fields chatType :: ChatType json :: Object

Instances

Instances details

FromJSON JSONChatInfo Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser JSONChatInfo parseJSONList :: Value -> Parser [JSONChatInfo] omittedField :: Maybe JSONChatInfo
ToJSON JSONChatInfo Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: JSONChatInfo -> Value toEncoding :: JSONChatInfo -> Encoding toJSONList :: [JSONChatInfo] -> Value toEncodingList :: [JSONChatInfo] -> Encoding omitField :: JSONChatInfo -> Bool

jsonChatInfo :: forall (c :: ChatType). ChatInfo c -> JSONChatInfo Source #

data AChatInfo Source #

Constructors

ChatTypeI c => AChatInfo (SChatType c) (ChatInfo c)

Instances

Instances details

FromJSON AChatInfo Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser AChatInfo parseJSONList :: Value -> Parser [AChatInfo] omittedField :: Maybe AChatInfo
ToJSON AChatInfo Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: AChatInfo -> Value toEncoding :: AChatInfo -> Encoding toJSONList :: [AChatInfo] -> Value toEncodingList :: [AChatInfo] -> Encoding omitField :: AChatInfo -> Bool
Show AChatInfo Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> AChatInfo -> ShowS show :: AChatInfo -> String showList :: [AChatInfo] -> ShowS

jsonAChatInfo :: JSONChatInfo -> AChatInfo Source #

data ChatItem (c :: ChatType) (d :: MsgDirection) Source #

Constructors

ChatItem
Fields chatDir :: CIDirection c d meta :: CIMeta c d content :: CIContent d mentions :: Map MemberName CIMention formattedText :: Maybe MarkdownList quotedItem :: Maybe (CIQuote c) reactions :: [CIReactionCount] file :: Maybe (CIFile d)

Instances

Instances details

(ChatTypeI c, MsgDirectionI d) => FromJSON (ChatItem c d) Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser (ChatItem c d) parseJSONList :: Value -> Parser [ChatItem c d] omittedField :: Maybe (ChatItem c d)
(ChatTypeI c, MsgDirectionI d) => ToJSON (ChatItem c d) Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: ChatItem c d -> Value toEncoding :: ChatItem c d -> Encoding toJSONList :: [ChatItem c d] -> Value toEncodingList :: [ChatItem c d] -> Encoding omitField :: ChatItem c d -> Bool
Show (ChatItem c d) Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> ChatItem c d -> ShowS show :: ChatItem c d -> String showList :: [ChatItem c d] -> ShowS

data CIMention Source #

Constructors

CIMention
Fields memberId :: MemberId memberRef :: Maybe CIMentionMember

Instances

Instances details

FromJSON CIMention Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser CIMention parseJSONList :: Value -> Parser [CIMention] omittedField :: Maybe CIMention
ToJSON CIMention Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: CIMention -> Value toEncoding :: CIMention -> Encoding toJSONList :: [CIMention] -> Value toEncodingList :: [CIMention] -> Encoding omitField :: CIMention -> Bool
Show CIMention Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> CIMention -> ShowS show :: CIMention -> String showList :: [CIMention] -> ShowS
Eq CIMention Source #
Instance details Defined in Simplex.Chat.Messages Methods (==) :: CIMention -> CIMention -> Bool (/=) :: CIMention -> CIMention -> Bool

data CIMentionMember Source #

Constructors

CIMentionMember
Fields groupMemberId :: GroupMemberId displayName :: Text localAlias :: Maybe Text memberRole :: GroupMemberRole

Instances

Instances details

FromJSON CIMentionMember Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser CIMentionMember parseJSONList :: Value -> Parser [CIMentionMember] omittedField :: Maybe CIMentionMember
ToJSON CIMentionMember Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: CIMentionMember -> Value toEncoding :: CIMentionMember -> Encoding toJSONList :: [CIMentionMember] -> Value toEncodingList :: [CIMentionMember] -> Encoding omitField :: CIMentionMember -> Bool
Show CIMentionMember Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> CIMentionMember -> ShowS show :: CIMentionMember -> String showList :: [CIMentionMember] -> ShowS
Eq CIMentionMember Source #
Instance details Defined in Simplex.Chat.Messages Methods (==) :: CIMentionMember -> CIMentionMember -> Bool (/=) :: CIMentionMember -> CIMentionMember -> Bool

isACIUserMention :: AChatItem -> Bool Source #

isUserMention :: forall (c :: ChatType) (d :: MsgDirection). ChatItem c d -> Bool Source #

data CIDirection (c :: ChatType) (d :: MsgDirection) where Source #

Constructors

CIDirectSnd :: CIDirection 'CTDirect 'MDSnd
CIDirectRcv :: CIDirection 'CTDirect 'MDRcv
CIGroupSnd :: CIDirection 'CTGroup 'MDSnd
CIGroupRcv :: GroupMember -> CIDirection 'CTGroup 'MDRcv
CILocalSnd :: CIDirection 'CTLocal 'MDSnd
CILocalRcv :: CIDirection 'CTLocal 'MDRcv

Instances

Instances details

(ChatTypeI c, MsgDirectionI d) => FromJSON (CIDirection c d) Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser (CIDirection c d) parseJSONList :: Value -> Parser [CIDirection c d] omittedField :: Maybe (CIDirection c d)
ToJSON (CIDirection c d) Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: CIDirection c d -> Value toEncoding :: CIDirection c d -> Encoding toJSONList :: [CIDirection c d] -> Value toEncodingList :: [CIDirection c d] -> Encoding omitField :: CIDirection c d -> Bool
Show (CIDirection c d) Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> CIDirection c d -> ShowS show :: CIDirection c d -> String showList :: [CIDirection c d] -> ShowS

data CCIDirection (c :: ChatType) Source #

Constructors

MsgDirectionI d => CCID (SMsgDirection d) (CIDirection c d)

Instances

Instances details

ChatTypeI c => FromJSON (CCIDirection c) Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser (CCIDirection c) parseJSONList :: Value -> Parser [CCIDirection c] omittedField :: Maybe (CCIDirection c)

data ACIDirection Source #

Constructors

(ChatTypeI c, MsgDirectionI d) => ACID (SChatType c) (SMsgDirection d) (CIDirection c d)

Instances

Instances details

FromJSON ACIDirection Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser ACIDirection parseJSONList :: Value -> Parser [ACIDirection] omittedField :: Maybe ACIDirection

data JSONCIDirection Source #

Constructors

JCIDirectSnd
JCIDirectRcv
JCIGroupSnd
JCIGroupRcv
Fields groupMember :: GroupMember
JCILocalSnd
JCILocalRcv

Instances

Instances details

FromJSON JSONCIDirection Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser JSONCIDirection parseJSONList :: Value -> Parser [JSONCIDirection] omittedField :: Maybe JSONCIDirection
ToJSON JSONCIDirection Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: JSONCIDirection -> Value toEncoding :: JSONCIDirection -> Encoding toJSONList :: [JSONCIDirection] -> Value toEncodingList :: [JSONCIDirection] -> Encoding omitField :: JSONCIDirection -> Bool
Show JSONCIDirection Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> JSONCIDirection -> ShowS show :: JSONCIDirection -> String showList :: [JSONCIDirection] -> ShowS

jsonCIDirection :: forall (c :: ChatType) (d :: MsgDirection). CIDirection c d -> JSONCIDirection Source #

jsonACIDirection :: JSONCIDirection -> ACIDirection Source #

data CIReactionCount Source #

Constructors

CIReactionCount
Fields reaction :: MsgReaction userReacted :: Bool totalReacted :: Int

Instances

Instances details

FromJSON CIReactionCount Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser CIReactionCount parseJSONList :: Value -> Parser [CIReactionCount] omittedField :: Maybe CIReactionCount
ToJSON CIReactionCount Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: CIReactionCount -> Value toEncoding :: CIReactionCount -> Encoding toJSONList :: [CIReactionCount] -> Value toEncodingList :: [CIReactionCount] -> Encoding omitField :: CIReactionCount -> Bool
Show CIReactionCount Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> CIReactionCount -> ShowS show :: CIReactionCount -> String showList :: [CIReactionCount] -> ShowS

data CChatItem (c :: ChatType) Source #

Constructors

MsgDirectionI d => CChatItem (SMsgDirection d) (ChatItem c d)

Instances

Instances details

ChatTypeI c => FromJSON (CChatItem c) Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser (CChatItem c) parseJSONList :: Value -> Parser [CChatItem c] omittedField :: Maybe (CChatItem c)
ChatTypeI c => ToJSON (CChatItem c) Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: CChatItem c -> Value toEncoding :: CChatItem c -> Encoding toJSONList :: [CChatItem c] -> Value toEncodingList :: [CChatItem c] -> Encoding omitField :: CChatItem c -> Bool
Show (CChatItem c) Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> CChatItem c -> ShowS show :: CChatItem c -> String showList :: [CChatItem c] -> ShowS

cChatItemId :: forall (c :: ChatType). CChatItem c -> ChatItemId Source #

chatItemId' :: forall (c :: ChatType) (d :: MsgDirection). ChatItem c d -> ChatItemId Source #

chatItemTs :: forall (c :: ChatType). CChatItem c -> UTCTime Source #

chatItemTs' :: forall (c :: ChatType) (d :: MsgDirection). ChatItem c d -> UTCTime Source #

ciCreatedAt :: forall (c :: ChatType). CChatItem c -> UTCTime Source #

ciCreatedAt' :: forall (c :: ChatType) (d :: MsgDirection). ChatItem c d -> UTCTime Source #

chatItemTimed :: forall (c :: ChatType) (d :: MsgDirection). ChatItem c d -> Maybe CITimed Source #

timedDeleteAt' :: CITimed -> Maybe UTCTime Source #

chatItemMember :: forall (d :: MsgDirection). GroupInfo -> ChatItem 'CTGroup d -> GroupMember Source #

chatItemRcvFromMember :: forall (c :: ChatType) (d :: MsgDirection). ChatItem c d -> Maybe GroupMember Source #

chatItemIsRcvNew :: forall (c :: ChatType) (d :: MsgDirection). ChatItem c d -> Bool Source #

ciReactionAllowed :: forall (c :: ChatType) (d :: MsgDirection). ChatItem c d -> Bool Source #

data ChatDirection (c :: ChatType) (d :: MsgDirection) where Source #

Constructors

CDDirectSnd :: Contact -> ChatDirection 'CTDirect 'MDSnd
CDDirectRcv :: Contact -> ChatDirection 'CTDirect 'MDRcv
CDGroupSnd :: GroupInfo -> Maybe GroupChatScopeInfo -> ChatDirection 'CTGroup 'MDSnd
CDGroupRcv :: GroupInfo -> Maybe GroupChatScopeInfo -> GroupMember -> ChatDirection 'CTGroup 'MDRcv
CDLocalSnd :: NoteFolder -> ChatDirection 'CTLocal 'MDSnd
CDLocalRcv :: NoteFolder -> ChatDirection 'CTLocal 'MDRcv

toCIDirection :: forall (c :: ChatType) (d :: MsgDirection). ChatDirection c d -> CIDirection c d Source #

toChatInfo :: forall (c :: ChatType) (d :: MsgDirection). ChatDirection c d -> ChatInfo c Source #

contactChatDeleted :: forall (c :: ChatType) (d :: MsgDirection). ChatDirection c d -> Bool Source #

data NewChatItem (d :: MsgDirection) Source #

Constructors

NewChatItem
Fields createdByMsgId :: Maybe MessageId itemSent :: SMsgDirection d itemTs :: ChatItemTs itemContent :: CIContent d itemText :: Text itemStatus :: CIStatus d itemSharedMsgId :: Maybe SharedMsgId itemQuotedMsg :: Maybe QuotedMsg createdAt :: UTCTime

Instances

Instances details

Show (NewChatItem d) Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> NewChatItem d -> ShowS show :: NewChatItem d -> String showList :: [NewChatItem d] -> ShowS

data Chat (c :: ChatType) Source #

type to show one chat with messages

Constructors

Chat
Fields chatInfo :: ChatInfo c chatItems :: [CChatItem c] chatStats :: ChatStats

Instances

Instances details

ChatTypeI c => ToJSON (Chat c) Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: Chat c -> Value toEncoding :: Chat c -> Encoding toJSONList :: [Chat c] -> Value toEncodingList :: [Chat c] -> Encoding omitField :: Chat c -> Bool
Show (Chat c) Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> Chat c -> ShowS show :: Chat c -> String showList :: [Chat c] -> ShowS

data AChat Source #

Constructors

ChatTypeI c => AChat (SChatType c) (Chat c)

Instances

Instances details

FromJSON AChat Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser AChat parseJSONList :: Value -> Parser [AChat] omittedField :: Maybe AChat
ToJSON AChat Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: AChat -> Value toEncoding :: AChat -> Encoding toJSONList :: [AChat] -> Value toEncodingList :: [AChat] -> Encoding omitField :: AChat -> Bool
Show AChat Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> AChat -> ShowS show :: AChat -> String showList :: [AChat] -> ShowS

data ChatStats Source #

Constructors

ChatStats
Fields unreadCount :: Int unreadMentions :: Int reportsCount :: Int minUnreadItemId :: ChatItemId unreadChat :: Bool

Instances

Instances details

FromJSON ChatStats Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser ChatStats parseJSONList :: Value -> Parser [ChatStats] omittedField :: Maybe ChatStats
ToJSON ChatStats Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: ChatStats -> Value toEncoding :: ChatStats -> Encoding toJSONList :: [ChatStats] -> Value toEncodingList :: [ChatStats] -> Encoding omitField :: ChatStats -> Bool
Show ChatStats Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> ChatStats -> ShowS show :: ChatStats -> String showList :: [ChatStats] -> ShowS

emptyChatStats :: ChatStats Source #

data NavigationInfo Source #

Constructors

NavigationInfo
Fields afterUnread :: Int afterTotal :: Int

Instances

Instances details

FromJSON NavigationInfo Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser NavigationInfo parseJSONList :: Value -> Parser [NavigationInfo] omittedField :: Maybe NavigationInfo
ToJSON NavigationInfo Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: NavigationInfo -> Value toEncoding :: NavigationInfo -> Encoding toJSONList :: [NavigationInfo] -> Value toEncodingList :: [NavigationInfo] -> Encoding omitField :: NavigationInfo -> Bool
Show NavigationInfo Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> NavigationInfo -> ShowS show :: NavigationInfo -> String showList :: [NavigationInfo] -> ShowS

data AChatItem Source #

type to show a mix of messages from multiple chats

Constructors

(ChatTypeI c, MsgDirectionI d) => AChatItem (SChatType c) (SMsgDirection d) (ChatInfo c) (ChatItem c d)

Instances

Instances details

FromJSON AChatItem Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser AChatItem parseJSONList :: Value -> Parser [AChatItem] omittedField :: Maybe AChatItem
ToJSON AChatItem Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: AChatItem -> Value toEncoding :: AChatItem -> Encoding toJSONList :: [AChatItem] -> Value toEncodingList :: [AChatItem] -> Encoding omitField :: AChatItem -> Bool
Show AChatItem Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> AChatItem -> ShowS show :: AChatItem -> String showList :: [AChatItem] -> ShowS

data JSONAnyChatItem (c :: ChatType) (d :: MsgDirection) Source #

Constructors

JSONAnyChatItem
Fields chatInfo :: ChatInfo c chatItem :: ChatItem c d

Instances

Instances details

(ChatTypeI c, MsgDirectionI d) => ToJSON (JSONAnyChatItem c d) Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: JSONAnyChatItem c d -> Value toEncoding :: JSONAnyChatItem c d -> Encoding toJSONList :: [JSONAnyChatItem c d] -> Value toEncodingList :: [JSONAnyChatItem c d] -> Encoding omitField :: JSONAnyChatItem c d -> Bool

aChatItems :: AChat -> [AChatItem] Source #

aChatItemId :: AChatItem -> Int64 Source #

aChatItemTs :: AChatItem -> UTCTime Source #

aChatItemDir :: AChatItem -> MsgDirection Source #

aChatItemRcvFromMember :: AChatItem -> Maybe GroupMember Source #

aChatItemIsRcvNew :: AChatItem -> Bool Source #

updateFileStatus :: forall (c :: ChatType) (d :: MsgDirection). ChatItem c d -> CIFileStatus d -> ChatItem c d Source #

data CIMeta (c :: ChatType) (d :: MsgDirection) Source #

Constructors

CIMeta

Fields

itemId :: ChatItemId
itemTs :: ChatItemTs
itemText :: Text
itemStatus :: CIStatus d
sentViaProxy :: Maybe Bool
itemSharedMsgId :: Maybe SharedMsgId
itemForwarded :: Maybe CIForwardedFrom
itemDeleted :: Maybe (CIDeleted c)
itemEdited :: Bool
itemTimed :: Maybe CITimed
itemLive :: Maybe Bool
userMention :: Bool
deletable :: Bool
editable :: Bool
forwardedByMember :: Maybe GroupMemberId
showGroupAsSender :: ShowGroupAsSender
createdAt :: UTCTime
updatedAt :: UTCTime

Instances

Instances details

(ChatTypeI c, MsgDirectionI d) => FromJSON (CIMeta c d) Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser (CIMeta c d) parseJSONList :: Value -> Parser [CIMeta c d] omittedField :: Maybe (CIMeta c d)
ChatTypeI c => ToJSON (CIMeta c d) Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: CIMeta c d -> Value toEncoding :: CIMeta c d -> Encoding toJSONList :: [CIMeta c d] -> Value toEncodingList :: [CIMeta c d] -> Encoding omitField :: CIMeta c d -> Bool
Show (CIMeta c d) Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> CIMeta c d -> ShowS show :: CIMeta c d -> String showList :: [CIMeta c d] -> ShowS

type ShowGroupAsSender = Bool Source #

mkCIMeta :: forall (c :: ChatType) (d :: MsgDirection). ChatTypeI c => ChatItemId -> CIContent d -> Text -> CIStatus d -> Maybe Bool -> Maybe SharedMsgId -> Maybe CIForwardedFrom -> Maybe (CIDeleted c) -> Bool -> Maybe CITimed -> Maybe Bool -> Bool -> UTCTime -> ChatItemTs -> Maybe GroupMemberId -> Bool -> UTCTime -> UTCTime -> CIMeta c d Source #

deletable' :: forall (c :: ChatType) (d :: MsgDirection). ChatTypeI c => CIContent d -> Maybe (CIDeleted c) -> UTCTime -> NominalDiffTime -> UTCTime -> Bool Source #

dummyMeta :: forall (c :: ChatType). ChatItemId -> UTCTime -> Text -> CIMeta c 'MDSnd Source #

data CITimed Source #

Constructors

CITimed
Fields ttl :: Int deleteAt :: Maybe UTCTime

Instances

Instances details

FromJSON CITimed Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser CITimed parseJSONList :: Value -> Parser [CITimed] omittedField :: Maybe CITimed
ToJSON CITimed Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: CITimed -> Value toEncoding :: CITimed -> Encoding toJSONList :: [CITimed] -> Value toEncodingList :: [CITimed] -> Encoding omitField :: CITimed -> Bool
Show CITimed Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> CITimed -> ShowS show :: CITimed -> String showList :: [CITimed] -> ShowS

ttl' :: CITimed -> Int Source #

contactTimedTTL :: Contact -> Maybe (Maybe Int) Source #

groupTimedTTL :: GroupInfo -> Maybe (Maybe Int) Source #

rcvContactCITimed :: Contact -> Maybe Int -> Maybe CITimed Source #

rcvGroupCITimed :: GroupInfo -> Maybe Int -> Maybe CITimed Source #

rcvCITimed_ :: Maybe (Maybe Int) -> Maybe Int -> Maybe CITimed Source #

data CIQuote (c :: ChatType) Source #

Constructors

CIQuote
Fields chatDir :: CIQDirection c itemId :: Maybe ChatItemId sharedMsgId :: Maybe SharedMsgId sentAt :: UTCTime content :: MsgContent formattedText :: Maybe MarkdownList

Instances

Instances details

ChatTypeI c => FromJSON (CIQuote c) Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser (CIQuote c) parseJSONList :: Value -> Parser [CIQuote c] omittedField :: Maybe (CIQuote c)
ToJSON (CIQuote c) Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: CIQuote c -> Value toEncoding :: CIQuote c -> Encoding toJSONList :: [CIQuote c] -> Value toEncodingList :: [CIQuote c] -> Encoding omitField :: CIQuote c -> Bool
Show (CIQuote c) Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> CIQuote c -> ShowS show :: CIQuote c -> String showList :: [CIQuote c] -> ShowS

quoteItemId :: forall (c :: ChatType). CIQuote c -> Maybe ChatItemId Source #

data CIReaction (c :: ChatType) (d :: MsgDirection) Source #

Constructors

CIReaction
Fields chatDir :: CIDirection c d chatItem :: CChatItem c sentAt :: UTCTime reaction :: MsgReaction

Instances

Instances details

(ChatTypeI c, MsgDirectionI d) => FromJSON (CIReaction c d) Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser (CIReaction c d) parseJSONList :: Value -> Parser [CIReaction c d] omittedField :: Maybe (CIReaction c d)
ChatTypeI c => ToJSON (CIReaction c d) Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: CIReaction c d -> Value toEncoding :: CIReaction c d -> Encoding toJSONList :: [CIReaction c d] -> Value toEncodingList :: [CIReaction c d] -> Encoding omitField :: CIReaction c d -> Bool
Show (CIReaction c d) Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> CIReaction c d -> ShowS show :: CIReaction c d -> String showList :: [CIReaction c d] -> ShowS

data AnyCIReaction Source #

Constructors

ChatTypeI c => ACIR (SChatType c) (SMsgDirection d) (CIReaction c d)

Instances

Instances details

FromJSON AnyCIReaction Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser AnyCIReaction parseJSONList :: Value -> Parser [AnyCIReaction] omittedField :: Maybe AnyCIReaction

data ACIReaction Source #

Constructors

ChatTypeI c => ACIReaction (SChatType c) (SMsgDirection d) (ChatInfo c) (CIReaction c d)

Instances

Instances details

FromJSON ACIReaction Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser ACIReaction parseJSONList :: Value -> Parser [ACIReaction] omittedField :: Maybe ACIReaction
ToJSON ACIReaction Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: ACIReaction -> Value toEncoding :: ACIReaction -> Encoding toJSONList :: [ACIReaction] -> Value toEncodingList :: [ACIReaction] -> Encoding omitField :: ACIReaction -> Bool
Show ACIReaction Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> ACIReaction -> ShowS show :: ACIReaction -> String showList :: [ACIReaction] -> ShowS

data JSONCIReaction (c :: ChatType) (d :: MsgDirection) Source #

Constructors

JSONCIReaction
Fields chatInfo :: ChatInfo c chatReaction :: CIReaction c d

Instances

Instances details

ChatTypeI c => ToJSON (JSONCIReaction c d) Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: JSONCIReaction c d -> Value toEncoding :: JSONCIReaction c d -> Encoding toJSONList :: [JSONCIReaction c d] -> Value toEncodingList :: [JSONCIReaction c d] -> Encoding omitField :: JSONCIReaction c d -> Bool

data MemberReaction Source #

Constructors

MemberReaction
Fields groupMember :: GroupMember reactionTs :: UTCTime

Instances

Instances details

FromJSON MemberReaction Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser MemberReaction parseJSONList :: Value -> Parser [MemberReaction] omittedField :: Maybe MemberReaction
ToJSON MemberReaction Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: MemberReaction -> Value toEncoding :: MemberReaction -> Encoding toJSONList :: [MemberReaction] -> Value toEncodingList :: [MemberReaction] -> Encoding omitField :: MemberReaction -> Bool
Show MemberReaction Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> MemberReaction -> ShowS show :: MemberReaction -> String showList :: [MemberReaction] -> ShowS

type family ChatTypeQuotable (a :: ChatType) where ... Source #

Equations

ChatTypeQuotable 'CTDirect = ()
ChatTypeQuotable 'CTGroup = ()
ChatTypeQuotable a = (Int ~ Bool, TypeError (('Text "ChatType " ':<>: 'ShowType a) ':<>: 'Text " cannot be quoted") :: Constraint)

data CIQDirection (c :: ChatType) where Source #

Constructors

CIQDirectSnd :: CIQDirection 'CTDirect
CIQDirectRcv :: CIQDirection 'CTDirect
CIQGroupSnd :: CIQDirection 'CTGroup
CIQGroupRcv :: Maybe GroupMember -> CIQDirection 'CTGroup

Instances

Instances details

ChatTypeI c => FromJSON (CIQDirection c) Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser (CIQDirection c) parseJSONList :: Value -> Parser [CIQDirection c] omittedField :: Maybe (CIQDirection c)
ToJSON (CIQDirection c) Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: CIQDirection c -> Value toEncoding :: CIQDirection c -> Encoding toJSONList :: [CIQDirection c] -> Value toEncodingList :: [CIQDirection c] -> Encoding omitField :: CIQDirection c -> Bool
Show (CIQDirection c) Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> CIQDirection c -> ShowS show :: CIQDirection c -> String showList :: [CIQDirection c] -> ShowS

data ACIQDirection Source #

Constructors

(ChatTypeI c, ChatTypeQuotable c) => ACIQDirection (SChatType c) (CIQDirection c)

jsonCIQDirection :: forall (c :: ChatType). CIQDirection c -> Maybe JSONCIDirection Source #

jsonACIQDirection :: Maybe JSONCIDirection -> Either String ACIQDirection Source #

quoteMsgDirection :: forall (c :: ChatType). CIQDirection c -> MsgDirection Source #

data CIFile (d :: MsgDirection) Source #

Constructors

CIFile
Fields fileId :: Int64 fileName :: String fileSize :: Integer fileSource :: Maybe CryptoFile fileStatus :: CIFileStatus d fileProtocol :: FileProtocol

Instances

Instances details

MsgDirectionI d => FromJSON (CIFile d) Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser (CIFile d) parseJSONList :: Value -> Parser [CIFile d] omittedField :: Maybe (CIFile d)
MsgDirectionI d => ToJSON (CIFile d) Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: CIFile d -> Value toEncoding :: CIFile d -> Encoding toJSONList :: [CIFile d] -> Value toEncodingList :: [CIFile d] -> Encoding omitField :: CIFile d -> Bool
Show (CIFile d) Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> CIFile d -> ShowS show :: CIFile d -> String showList :: [CIFile d] -> ShowS

data FileProtocol Source #

Constructors

FPSMP
FPXFTP
FPLocal

Instances

Instances details

FromJSON FileProtocol Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser FileProtocol parseJSONList :: Value -> Parser [FileProtocol] omittedField :: Maybe FileProtocol
ToJSON FileProtocol Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: FileProtocol -> Value toEncoding :: FileProtocol -> Encoding toJSONList :: [FileProtocol] -> Value toEncodingList :: [FileProtocol] -> Encoding omitField :: FileProtocol -> Bool
Show FileProtocol Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> FileProtocol -> ShowS show :: FileProtocol -> String showList :: [FileProtocol] -> ShowS
Eq FileProtocol Source #
Instance details Defined in Simplex.Chat.Messages Methods (==) :: FileProtocol -> FileProtocol -> Bool (/=) :: FileProtocol -> FileProtocol -> Bool
Ord FileProtocol Source #
Instance details Defined in Simplex.Chat.Messages Methods compare :: FileProtocol -> FileProtocol -> Ordering (<) :: FileProtocol -> FileProtocol -> Bool (<=) :: FileProtocol -> FileProtocol -> Bool (>) :: FileProtocol -> FileProtocol -> Bool (>=) :: FileProtocol -> FileProtocol -> Bool max :: FileProtocol -> FileProtocol -> FileProtocol min :: FileProtocol -> FileProtocol -> FileProtocol
TextEncoding FileProtocol Source #
Instance details Defined in Simplex.Chat.Messages Methods textEncode :: FileProtocol -> Text textDecode :: Text -> Maybe FileProtocol
FromField FileProtocol Source #
Instance details Defined in Simplex.Chat.Messages Methods fromField :: FieldParser FileProtocol #
ToField FileProtocol Source #
Instance details Defined in Simplex.Chat.Messages Methods toField :: FileProtocol -> SQLData #

data CIFileStatus (d :: MsgDirection) where Source #

Constructors

CIFSSndStored :: CIFileStatus 'MDSnd
CIFSSndTransfer
Fields :: { sndProgress :: Int64 , sndTotal :: Int64 } -> CIFileStatus 'MDSnd
CIFSSndCancelled :: CIFileStatus 'MDSnd
CIFSSndComplete :: CIFileStatus 'MDSnd
CIFSSndError
Fields :: { sndFileError :: FileError } -> CIFileStatus 'MDSnd
CIFSSndWarning
Fields :: { sndFileError :: FileError } -> CIFileStatus 'MDSnd
CIFSRcvInvitation :: CIFileStatus 'MDRcv
CIFSRcvAccepted :: CIFileStatus 'MDRcv
CIFSRcvTransfer
Fields :: { rcvProgress :: Int64 , rcvTotal :: Int64 } -> CIFileStatus 'MDRcv
CIFSRcvAborted :: CIFileStatus 'MDRcv
CIFSRcvComplete :: CIFileStatus 'MDRcv
CIFSRcvCancelled :: CIFileStatus 'MDRcv
CIFSRcvError
Fields :: { rcvFileError :: FileError } -> CIFileStatus 'MDRcv
CIFSRcvWarning
Fields :: { rcvFileError :: FileError } -> CIFileStatus 'MDRcv
CIFSInvalid
Fields :: { text :: Text } -> CIFileStatus 'MDSnd

Instances

Instances details

MsgDirectionI d => FromJSON (CIFileStatus d) Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser (CIFileStatus d) parseJSONList :: Value -> Parser [CIFileStatus d] omittedField :: Maybe (CIFileStatus d)
ToJSON (CIFileStatus d) Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: CIFileStatus d -> Value toEncoding :: CIFileStatus d -> Encoding toJSONList :: [CIFileStatus d] -> Value toEncodingList :: [CIFileStatus d] -> Encoding omitField :: CIFileStatus d -> Bool
Show (CIFileStatus d) Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> CIFileStatus d -> ShowS show :: CIFileStatus d -> String showList :: [CIFileStatus d] -> ShowS
Eq (CIFileStatus d) Source #
Instance details Defined in Simplex.Chat.Messages Methods (==) :: CIFileStatus d -> CIFileStatus d -> Bool (/=) :: CIFileStatus d -> CIFileStatus d -> Bool
MsgDirectionI d => StrEncoding (CIFileStatus d) Source #
Instance details Defined in Simplex.Chat.Messages Methods strEncode :: CIFileStatus d -> ByteString strDecode :: ByteString -> Either String (CIFileStatus d) strP :: Parser (CIFileStatus d)
MsgDirectionI d => ToField (CIFileStatus d) Source #
Instance details Defined in Simplex.Chat.Messages Methods toField :: CIFileStatus d -> SQLData #

ciFileEnded :: forall (d :: MsgDirection). CIFileStatus d -> Bool Source #

ciFileLoaded :: forall (d :: MsgDirection). CIFileStatus d -> Bool Source #

data ForwardFileError Source #

Constructors

FFENotAccepted FileTransferId
FFEInProgress
FFEFailed
FFEMissing

Instances

Instances details

Eq ForwardFileError Source #
Instance details Defined in Simplex.Chat.Messages Methods (==) :: ForwardFileError -> ForwardFileError -> Bool (/=) :: ForwardFileError -> ForwardFileError -> Bool
Ord ForwardFileError Source #
Instance details Defined in Simplex.Chat.Messages Methods compare :: ForwardFileError -> ForwardFileError -> Ordering (<) :: ForwardFileError -> ForwardFileError -> Bool (<=) :: ForwardFileError -> ForwardFileError -> Bool (>) :: ForwardFileError -> ForwardFileError -> Bool (>=) :: ForwardFileError -> ForwardFileError -> Bool max :: ForwardFileError -> ForwardFileError -> ForwardFileError min :: ForwardFileError -> ForwardFileError -> ForwardFileError

ciFileForwardError :: forall (d :: MsgDirection). FileTransferId -> CIFileStatus d -> Maybe ForwardFileError Source #

data ACIFileStatus Source #

Constructors

MsgDirectionI d => AFS (SMsgDirection d) (CIFileStatus d)

Instances

Instances details

Show ACIFileStatus Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> ACIFileStatus -> ShowS show :: ACIFileStatus -> String showList :: [ACIFileStatus] -> ShowS
StrEncoding ACIFileStatus Source #
Instance details Defined in Simplex.Chat.Messages Methods strEncode :: ACIFileStatus -> ByteString strDecode :: ByteString -> Either String ACIFileStatus strP :: Parser ACIFileStatus
FromField ACIFileStatus Source #
Instance details Defined in Simplex.Chat.Messages Methods fromField :: FieldParser ACIFileStatus #

data JSONCIFileStatus Source #

Constructors

JCIFSSndStored
JCIFSSndTransfer
Fields sndProgress :: Int64 sndTotal :: Int64
JCIFSSndCancelled
JCIFSSndComplete
JCIFSSndError
Fields sndFileError :: FileError
JCIFSSndWarning
Fields sndFileError :: FileError
JCIFSRcvInvitation
JCIFSRcvAccepted
JCIFSRcvTransfer
Fields rcvProgress :: Int64 rcvTotal :: Int64
JCIFSRcvAborted
JCIFSRcvComplete
JCIFSRcvCancelled
JCIFSRcvError
Fields rcvFileError :: FileError
JCIFSRcvWarning
Fields rcvFileError :: FileError
JCIFSInvalid
Fields text :: Text

Instances

Instances details

FromJSON JSONCIFileStatus Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser JSONCIFileStatus parseJSONList :: Value -> Parser [JSONCIFileStatus] omittedField :: Maybe JSONCIFileStatus
ToJSON JSONCIFileStatus Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: JSONCIFileStatus -> Value toEncoding :: JSONCIFileStatus -> Encoding toJSONList :: [JSONCIFileStatus] -> Value toEncodingList :: [JSONCIFileStatus] -> Encoding omitField :: JSONCIFileStatus -> Bool

jsonCIFileStatus :: forall (d :: MsgDirection). CIFileStatus d -> JSONCIFileStatus Source #

aciFileStatusJSON :: JSONCIFileStatus -> ACIFileStatus Source #

data FileError Source #

Constructors

FileErrAuth
FileErrBlocked
Fields server :: String blockInfo :: BlockingInfo
FileErrNoFile
FileErrRelay
Fields srvError :: SrvError
FileErrOther
Fields fileError :: Text

Instances

Instances details

FromJSON FileError Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser FileError parseJSONList :: Value -> Parser [FileError] omittedField :: Maybe FileError
ToJSON FileError Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: FileError -> Value toEncoding :: FileError -> Encoding toJSONList :: [FileError] -> Value toEncodingList :: [FileError] -> Encoding omitField :: FileError -> Bool
Show FileError Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> FileError -> ShowS show :: FileError -> String showList :: [FileError] -> ShowS
Eq FileError Source #
Instance details Defined in Simplex.Chat.Messages Methods (==) :: FileError -> FileError -> Bool (/=) :: FileError -> FileError -> Bool
StrEncoding FileError Source #
Instance details Defined in Simplex.Chat.Messages Methods strEncode :: FileError -> ByteString strDecode :: ByteString -> Either String FileError strP :: Parser FileError

data CIFileInfo Source #

Constructors

CIFileInfo
Fields fileId :: Int64 fileStatus :: Maybe ACIFileStatus filePath :: Maybe FilePath

Instances

Instances details

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

mkCIFileInfo :: forall (d :: MsgDirection). MsgDirectionI d => CIFile d -> CIFileInfo Source #

data CIStatus (d :: MsgDirection) where Source #

Constructors

CISSndNew :: CIStatus 'MDSnd
CISSndSent :: SndCIStatusProgress -> CIStatus 'MDSnd
CISSndRcvd :: MsgReceiptStatus -> SndCIStatusProgress -> CIStatus 'MDSnd
CISSndErrorAuth :: CIStatus 'MDSnd
CISSndError :: SndError -> CIStatus 'MDSnd
CISSndWarning :: SndError -> CIStatus 'MDSnd
CISRcvNew :: CIStatus 'MDRcv
CISRcvRead :: CIStatus 'MDRcv
CISInvalid :: Text -> CIStatus 'MDSnd

Instances

Instances details

MsgDirectionI d => FromJSON (CIStatus d) Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser (CIStatus d) parseJSONList :: Value -> Parser [CIStatus d] omittedField :: Maybe (CIStatus d)
ToJSON (CIStatus d) Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: CIStatus d -> Value toEncoding :: CIStatus d -> Encoding toJSONList :: [CIStatus d] -> Value toEncodingList :: [CIStatus d] -> Encoding omitField :: CIStatus d -> Bool
Show (CIStatus d) Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> CIStatus d -> ShowS show :: CIStatus d -> String showList :: [CIStatus d] -> ShowS
Eq (CIStatus d) Source #
Instance details Defined in Simplex.Chat.Messages Methods (==) :: CIStatus d -> CIStatus d -> Bool (/=) :: CIStatus d -> CIStatus d -> Bool
MsgDirectionI d => StrEncoding (CIStatus d) Source #
Instance details Defined in Simplex.Chat.Messages Methods strEncode :: CIStatus d -> ByteString strDecode :: ByteString -> Either String (CIStatus d) strP :: Parser (CIStatus d)
(Typeable d, MsgDirectionI d) => FromField (CIStatus d) Source #
Instance details Defined in Simplex.Chat.Messages Methods fromField :: FieldParser (CIStatus d) #
MsgDirectionI d => ToField (CIStatus d) Source #
Instance details Defined in Simplex.Chat.Messages Methods toField :: CIStatus d -> SQLData #

data ACIStatus Source #

Constructors

MsgDirectionI d => ACIStatus (SMsgDirection d) (CIStatus d)

Instances

Instances details

Show ACIStatus Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> ACIStatus -> ShowS show :: ACIStatus -> String showList :: [ACIStatus] -> ShowS
StrEncoding ACIStatus Source #
Instance details Defined in Simplex.Chat.Messages Methods strEncode :: ACIStatus -> ByteString strDecode :: ByteString -> Either String ACIStatus strP :: Parser ACIStatus
FromField ACIStatus Source #
Instance details Defined in Simplex.Chat.Messages Methods fromField :: FieldParser ACIStatus #

data SndError Source #

Constructors

SndErrAuth
SndErrQuota
SndErrExpired
SndErrRelay
Fields srvError :: SrvError
SndErrProxy
Fields proxyServer :: String srvError :: SrvError
SndErrProxyRelay
Fields proxyServer :: String srvError :: SrvError
SndErrOther
Fields sndError :: Text

Instances

Instances details

FromJSON SndError Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser SndError parseJSONList :: Value -> Parser [SndError] omittedField :: Maybe SndError
ToJSON SndError Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: SndError -> Value toEncoding :: SndError -> Encoding toJSONList :: [SndError] -> Value toEncodingList :: [SndError] -> Encoding omitField :: SndError -> Bool
Show SndError Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> SndError -> ShowS show :: SndError -> String showList :: [SndError] -> ShowS
Eq SndError Source #
Instance details Defined in Simplex.Chat.Messages Methods (==) :: SndError -> SndError -> Bool (/=) :: SndError -> SndError -> Bool
StrEncoding SndError Source #
Instance details Defined in Simplex.Chat.Messages Methods strEncode :: SndError -> ByteString strDecode :: ByteString -> Either String SndError strP :: Parser SndError

data SrvError Source #

Constructors

SrvErrHost
SrvErrVersion
SrvErrOther
Fields srvError :: Text

Instances

Instances details

FromJSON SrvError Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser SrvError parseJSONList :: Value -> Parser [SrvError] omittedField :: Maybe SrvError
ToJSON SrvError Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: SrvError -> Value toEncoding :: SrvError -> Encoding toJSONList :: [SrvError] -> Value toEncodingList :: [SrvError] -> Encoding omitField :: SrvError -> Bool
Show SrvError Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> SrvError -> ShowS show :: SrvError -> String showList :: [SrvError] -> ShowS
Eq SrvError Source #
Instance details Defined in Simplex.Chat.Messages Methods (==) :: SrvError -> SrvError -> Bool (/=) :: SrvError -> SrvError -> Bool
StrEncoding SrvError Source #
Instance details Defined in Simplex.Chat.Messages Methods strEncode :: SrvError -> ByteString strDecode :: ByteString -> Either String SrvError strP :: Parser SrvError

data JSONCIStatus Source #

Constructors

JCISSndNew
JCISSndSent
Fields sndProgress :: SndCIStatusProgress
JCISSndRcvd
Fields msgRcptStatus :: MsgReceiptStatus sndProgress :: SndCIStatusProgress
JCISSndErrorAuth
JCISSndError
Fields agentError :: SndError
JCISSndWarning
Fields agentError :: SndError
JCISRcvNew
JCISRcvRead
JCISInvalid
Fields text :: Text

Instances

Instances details

FromJSON JSONCIStatus Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser JSONCIStatus parseJSONList :: Value -> Parser [JSONCIStatus] omittedField :: Maybe JSONCIStatus
ToJSON JSONCIStatus Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: JSONCIStatus -> Value toEncoding :: JSONCIStatus -> Encoding toJSONList :: [JSONCIStatus] -> Value toEncodingList :: [JSONCIStatus] -> Encoding omitField :: JSONCIStatus -> Bool
Show JSONCIStatus Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> JSONCIStatus -> ShowS show :: JSONCIStatus -> String showList :: [JSONCIStatus] -> ShowS

jsonCIStatus :: forall (d :: MsgDirection). CIStatus d -> JSONCIStatus Source #

jsonACIStatus :: JSONCIStatus -> ACIStatus Source #

ciStatusNew :: forall (d :: MsgDirection). MsgDirectionI d => CIStatus d Source #

ciCreateStatus :: forall (d :: MsgDirection). MsgDirectionI d => CIContent d -> CIStatus d Source #

membersGroupItemStatus :: [(GroupSndStatus, Int)] -> CIStatus 'MDSnd Source #

data SndCIStatusProgress Source #

Constructors

SSPPartial
SSPComplete

Instances

Instances details

FromJSON SndCIStatusProgress Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser SndCIStatusProgress parseJSONList :: Value -> Parser [SndCIStatusProgress] omittedField :: Maybe SndCIStatusProgress
ToJSON SndCIStatusProgress Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: SndCIStatusProgress -> Value toEncoding :: SndCIStatusProgress -> Encoding toJSONList :: [SndCIStatusProgress] -> Value toEncodingList :: [SndCIStatusProgress] -> Encoding omitField :: SndCIStatusProgress -> Bool
Show SndCIStatusProgress Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> SndCIStatusProgress -> ShowS show :: SndCIStatusProgress -> String showList :: [SndCIStatusProgress] -> ShowS
Eq SndCIStatusProgress Source #
Instance details Defined in Simplex.Chat.Messages Methods (==) :: SndCIStatusProgress -> SndCIStatusProgress -> Bool (/=) :: SndCIStatusProgress -> SndCIStatusProgress -> Bool
StrEncoding SndCIStatusProgress Source #
Instance details Defined in Simplex.Chat.Messages Methods strEncode :: SndCIStatusProgress -> ByteString strDecode :: ByteString -> Either String SndCIStatusProgress strP :: Parser SndCIStatusProgress

data GroupSndStatus Source #

Constructors

GSSNew
GSSForwarded
GSSInactive
GSSSent
GSSRcvd
Fields msgRcptStatus :: MsgReceiptStatus
GSSError
Fields agentError :: SndError
GSSWarning
Fields agentError :: SndError
GSSInvalid
Fields text :: Text

Instances

Instances details

FromJSON GroupSndStatus Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser GroupSndStatus parseJSONList :: Value -> Parser [GroupSndStatus] omittedField :: Maybe GroupSndStatus
ToJSON GroupSndStatus Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: GroupSndStatus -> Value toEncoding :: GroupSndStatus -> Encoding toJSONList :: [GroupSndStatus] -> Value toEncodingList :: [GroupSndStatus] -> Encoding omitField :: GroupSndStatus -> Bool
Show GroupSndStatus Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> GroupSndStatus -> ShowS show :: GroupSndStatus -> String showList :: [GroupSndStatus] -> ShowS
Eq GroupSndStatus Source #
Instance details Defined in Simplex.Chat.Messages Methods (==) :: GroupSndStatus -> GroupSndStatus -> Bool (/=) :: GroupSndStatus -> GroupSndStatus -> Bool
StrEncoding GroupSndStatus Source #
Instance details Defined in Simplex.Chat.Messages Methods strEncode :: GroupSndStatus -> ByteString strDecode :: ByteString -> Either String GroupSndStatus strP :: Parser GroupSndStatus
FromField GroupSndStatus Source #
Instance details Defined in Simplex.Chat.Messages Methods fromField :: FieldParser GroupSndStatus #
ToField GroupSndStatus Source #
Instance details Defined in Simplex.Chat.Messages Methods toField :: GroupSndStatus -> SQLData #

type ChatItemId = Int64 Source #

type ChatItemTs = UTCTime Source #

data SndMessage Source #

Constructors

SndMessage
Fields msgId :: MessageId sharedMsgId :: SharedMsgId msgBody :: MsgBody

Instances

Instances details

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

data NewRcvMessage (e :: MsgEncoding) Source #

Constructors

NewRcvMessage
Fields chatMsgEvent :: ChatMsgEvent e msgBody :: MsgBody brokerTs :: UTCTime

Instances

Instances details

Show (NewRcvMessage e) Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> NewRcvMessage e -> ShowS show :: NewRcvMessage e -> String showList :: [NewRcvMessage e] -> ShowS

data RcvMessage Source #

Constructors

RcvMessage
Fields msgId :: MessageId chatMsgEvent :: AChatMsgEvent sharedMsgId_ :: Maybe SharedMsgId msgBody :: MsgBody authorMember :: Maybe GroupMemberId forwardedByMember :: Maybe GroupMemberId

type MessageId = Int64 Source #

data ConnOrGroupId Source #

Constructors

ConnectionId Int64
GroupId Int64

data SndMsgDelivery Source #

Constructors

SndMsgDelivery
Fields connId :: Int64 agentMsgId :: AgentMsgId

Instances

Instances details

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

data RcvMsgDelivery Source #

Constructors

RcvMsgDelivery
Fields connId :: Int64 agentMsgId :: AgentMsgId agentMsgMeta :: MsgMeta

Instances

Instances details

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

data RcvMsgInfo Source #

Constructors

RcvMsgInfo
Fields msgId :: Int64 msgDeliveryId :: Int64 msgDeliveryStatus :: Text agentMsgId :: AgentMsgId agentMsgMeta :: Text

Instances

Instances details

FromJSON RcvMsgInfo Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser RcvMsgInfo parseJSONList :: Value -> Parser [RcvMsgInfo] omittedField :: Maybe RcvMsgInfo
ToJSON RcvMsgInfo Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: RcvMsgInfo -> Value toEncoding :: RcvMsgInfo -> Encoding toJSONList :: [RcvMsgInfo] -> Value toEncodingList :: [RcvMsgInfo] -> Encoding omitField :: RcvMsgInfo -> Bool
Show RcvMsgInfo Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> RcvMsgInfo -> ShowS show :: RcvMsgInfo -> String showList :: [RcvMsgInfo] -> ShowS

data MsgMetaJSON Source #

Constructors

MsgMetaJSON
Fields integrity :: Text rcvId :: Int64 rcvTs :: UTCTime serverId :: Text serverTs :: UTCTime sndId :: Int64

Instances

Instances details

FromJSON MsgMetaJSON Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser MsgMetaJSON parseJSONList :: Value -> Parser [MsgMetaJSON] omittedField :: Maybe MsgMetaJSON
ToJSON MsgMetaJSON Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: MsgMetaJSON -> Value toEncoding :: MsgMetaJSON -> Encoding toJSONList :: [MsgMetaJSON] -> Value toEncodingList :: [MsgMetaJSON] -> Encoding omitField :: MsgMetaJSON -> Bool
Show MsgMetaJSON Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> MsgMetaJSON -> ShowS show :: MsgMetaJSON -> String showList :: [MsgMetaJSON] -> ShowS
Eq MsgMetaJSON Source #
Instance details Defined in Simplex.Chat.Messages Methods (==) :: MsgMetaJSON -> MsgMetaJSON -> Bool (/=) :: MsgMetaJSON -> MsgMetaJSON -> Bool

msgMetaToJson :: MsgMeta -> MsgMetaJSON Source #

data MsgDeliveryStatus (d :: MsgDirection) where Source #

Constructors

MDSRcvAgent :: MsgDeliveryStatus 'MDRcv
MDSRcvAcknowledged :: MsgDeliveryStatus 'MDRcv
MDSSndPending :: MsgDeliveryStatus 'MDSnd
MDSSndAgent :: MsgDeliveryStatus 'MDSnd
MDSSndSent :: MsgDeliveryStatus 'MDSnd
MDSSndRcvd :: MsgReceiptStatus -> MsgDeliveryStatus 'MDSnd
MDSSndRead :: MsgDeliveryStatus 'MDSnd

Instances

Instances details

(Typeable d, MsgDirectionI d) => FromField (MsgDeliveryStatus d) Source #
Instance details Defined in Simplex.Chat.Messages Methods fromField :: FieldParser (MsgDeliveryStatus d) #
ToField (MsgDeliveryStatus d) Source #
Instance details Defined in Simplex.Chat.Messages Methods toField :: MsgDeliveryStatus d -> SQLData #

data AMsgDeliveryStatus Source #

Constructors

AMDS (SMsgDirection d) (MsgDeliveryStatus d)

serializeMsgDeliveryStatus :: forall (d :: MsgDirection). MsgDeliveryStatus d -> Text Source #

msgDeliveryStatusT :: Text -> Maybe AMsgDeliveryStatus Source #

msgDeliveryStatusT' :: forall (d :: MsgDirection). MsgDirectionI d => Text -> Maybe (MsgDeliveryStatus d) Source #

data CIDeleted (c :: ChatType) where Source #

Constructors

CIDeleted :: forall (c :: ChatType). Maybe UTCTime -> CIDeleted c
CIBlocked :: Maybe UTCTime -> CIDeleted 'CTGroup
CIBlockedByAdmin :: Maybe UTCTime -> CIDeleted 'CTGroup
CIModerated :: Maybe UTCTime -> GroupMember -> CIDeleted 'CTGroup

Instances

Instances details

ChatTypeI c => FromJSON (CIDeleted c) Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser (CIDeleted c) parseJSONList :: Value -> Parser [CIDeleted c] omittedField :: Maybe (CIDeleted c)
ChatTypeI c => ToJSON (CIDeleted c) Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: CIDeleted c -> Value toEncoding :: CIDeleted c -> Encoding toJSONList :: [CIDeleted c] -> Value toEncodingList :: [CIDeleted c] -> Encoding omitField :: CIDeleted c -> Bool
Show (CIDeleted c) Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> CIDeleted c -> ShowS show :: CIDeleted c -> String showList :: [CIDeleted c] -> ShowS

data ACIDeleted Source #

Constructors

ChatTypeI c => ACIDeleted (SChatType c) (CIDeleted c)

data JSONCIDeleted Source #

Constructors

JCIDDeleted
Fields deletedTs :: Maybe UTCTime chatType :: ChatType
JCIDBlocked
Fields deletedTs :: Maybe UTCTime
JCIDBlockedByAdmin
Fields deletedTs :: Maybe UTCTime
JCIDModerated
Fields deletedTs :: Maybe UTCTime byGroupMember :: GroupMember

Instances

Instances details

FromJSON JSONCIDeleted Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser JSONCIDeleted parseJSONList :: Value -> Parser [JSONCIDeleted] omittedField :: Maybe JSONCIDeleted
ToJSON JSONCIDeleted Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: JSONCIDeleted -> Value toEncoding :: JSONCIDeleted -> Encoding toJSONList :: [JSONCIDeleted] -> Value toEncodingList :: [JSONCIDeleted] -> Encoding omitField :: JSONCIDeleted -> Bool
Show JSONCIDeleted Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> JSONCIDeleted -> ShowS show :: JSONCIDeleted -> String showList :: [JSONCIDeleted] -> ShowS

jsonCIDeleted :: forall (d :: ChatType). ChatTypeI d => CIDeleted d -> JSONCIDeleted Source #

jsonACIDeleted :: JSONCIDeleted -> ACIDeleted Source #

itemDeletedTs :: forall (d :: ChatType). CIDeleted d -> Maybe UTCTime Source #

data CIForwardedFrom Source #

Constructors

CIFFUnknown
CIFFContact
Fields chatName :: Text msgDir :: MsgDirection contactId :: Maybe ContactId chatItemId :: Maybe ChatItemId
CIFFGroup
Fields chatName :: Text msgDir :: MsgDirection groupId :: Maybe GroupId chatItemId :: Maybe ChatItemId

Instances

Instances details

FromJSON CIForwardedFrom Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser CIForwardedFrom parseJSONList :: Value -> Parser [CIForwardedFrom] omittedField :: Maybe CIForwardedFrom
ToJSON CIForwardedFrom Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: CIForwardedFrom -> Value toEncoding :: CIForwardedFrom -> Encoding toJSONList :: [CIForwardedFrom] -> Value toEncodingList :: [CIForwardedFrom] -> Encoding omitField :: CIForwardedFrom -> Bool
Show CIForwardedFrom Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> CIForwardedFrom -> ShowS show :: CIForwardedFrom -> String showList :: [CIForwardedFrom] -> ShowS

cmForwardedFrom :: AChatMsgEvent -> Maybe CIForwardedFrom Source #

data CIForwardedFromTag Source #

Constructors

CIFFUnknown_
CIFFContact_
CIFFGroup_

Instances

Instances details

TextEncoding CIForwardedFromTag Source #
Instance details Defined in Simplex.Chat.Messages Methods textEncode :: CIForwardedFromTag -> Text textDecode :: Text -> Maybe CIForwardedFromTag
FromField CIForwardedFromTag Source #
Instance details Defined in Simplex.Chat.Messages Methods fromField :: FieldParser CIForwardedFromTag #
ToField CIForwardedFromTag Source #
Instance details Defined in Simplex.Chat.Messages Methods toField :: CIForwardedFromTag -> SQLData #

data ChatItemInfo Source #

Constructors

ChatItemInfo
Fields itemVersions :: [ChatItemVersion] memberDeliveryStatuses :: Maybe (NonEmpty MemberDeliveryStatus) forwardedFromChatItem :: Maybe AChatItem

Instances

Instances details

FromJSON ChatItemInfo Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser ChatItemInfo parseJSONList :: Value -> Parser [ChatItemInfo] omittedField :: Maybe ChatItemInfo
ToJSON ChatItemInfo Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: ChatItemInfo -> Value toEncoding :: ChatItemInfo -> Encoding toJSONList :: [ChatItemInfo] -> Value toEncodingList :: [ChatItemInfo] -> Encoding omitField :: ChatItemInfo -> Bool
Show ChatItemInfo Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> ChatItemInfo -> ShowS show :: ChatItemInfo -> String showList :: [ChatItemInfo] -> ShowS

data ChatItemVersion Source #

Constructors

ChatItemVersion
Fields chatItemVersionId :: Int64 msgContent :: MsgContent formattedText :: Maybe MarkdownList itemVersionTs :: UTCTime createdAt :: UTCTime

Instances

Instances details

FromJSON ChatItemVersion Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser ChatItemVersion parseJSONList :: Value -> Parser [ChatItemVersion] omittedField :: Maybe ChatItemVersion
ToJSON ChatItemVersion Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: ChatItemVersion -> Value toEncoding :: ChatItemVersion -> Encoding toJSONList :: [ChatItemVersion] -> Value toEncodingList :: [ChatItemVersion] -> Encoding omitField :: ChatItemVersion -> Bool
Show ChatItemVersion Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> ChatItemVersion -> ShowS show :: ChatItemVersion -> String showList :: [ChatItemVersion] -> ShowS
Eq ChatItemVersion Source #
Instance details Defined in Simplex.Chat.Messages Methods (==) :: ChatItemVersion -> ChatItemVersion -> Bool (/=) :: ChatItemVersion -> ChatItemVersion -> Bool

mkItemVersion :: forall (c :: ChatType) (d :: MsgDirection). ChatItem c d -> Maybe ChatItemVersion Source #

data MemberDeliveryStatus Source #

Constructors

MemberDeliveryStatus
Fields groupMemberId :: GroupMemberId memberDeliveryStatus :: GroupSndStatus sentViaProxy :: Maybe Bool

Instances

Instances details

FromJSON MemberDeliveryStatus Source #
Instance details Defined in Simplex.Chat.Messages Methods parseJSON :: Value -> Parser MemberDeliveryStatus parseJSONList :: Value -> Parser [MemberDeliveryStatus] omittedField :: Maybe MemberDeliveryStatus
ToJSON MemberDeliveryStatus Source #
Instance details Defined in Simplex.Chat.Messages Methods toJSON :: MemberDeliveryStatus -> Value toEncoding :: MemberDeliveryStatus -> Encoding toJSONList :: [MemberDeliveryStatus] -> Value toEncodingList :: [MemberDeliveryStatus] -> Encoding omitField :: MemberDeliveryStatus -> Bool
Show MemberDeliveryStatus Source #
Instance details Defined in Simplex.Chat.Messages Methods showsPrec :: Int -> MemberDeliveryStatus -> ShowS show :: MemberDeliveryStatus -> String showList :: [MemberDeliveryStatus] -> ShowS
Eq MemberDeliveryStatus Source #
Instance details Defined in Simplex.Chat.Messages Methods (==) :: MemberDeliveryStatus -> MemberDeliveryStatus -> Bool (/=) :: MemberDeliveryStatus -> MemberDeliveryStatus -> Bool

data CIModeration Source #

Constructors

CIModeration
Fields moderationId :: Int64 moderatorMember :: GroupMember createdByMsgId :: MessageId moderatedAt :: UTCTime

Instances

Instances details

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

msgMetaJson :: MsgMeta -> Text Source #