more tracking

This commit is contained in:
Evgeny Poberezkin
2024-04-28 18:27:43 +01:00
parent 7d4d0dd2c0
commit 83ab8d6ef2
2 changed files with 33 additions and 18 deletions
+2
View File
@@ -236,8 +236,10 @@ data ChatController = ChatController
data AgentDeliveryStatus = AgentDeliveryStatus
{ lastCmd :: UTCTime,
tracking :: Text,
isMSG :: Bool, -- False for RCVD
connId :: Maybe Int64, -- chat connection ID
msgBodyPfx :: Text,
eventTag :: Maybe Text, -- tshow of ACMEventTag (for JSON instances)
ackSent :: Maybe (UTCTime, Text), -- strEncode of random CorrId
pendingAcks :: Map Text Bool