From ac2844398bfd20f698b6b55e7d7959f7b2ef1ca5 Mon Sep 17 00:00:00 2001 From: spaced4ndy <8711996+spaced4ndy@users.noreply.github.com> Date: Mon, 17 Jun 2024 14:46:18 +0400 Subject: [PATCH] fix --- src/Simplex/Messaging/Agent/Stats.hs | 104 +++++++++++++-------------- 1 file changed, 52 insertions(+), 52 deletions(-) diff --git a/src/Simplex/Messaging/Agent/Stats.hs b/src/Simplex/Messaging/Agent/Stats.hs index 2349eb7d7..decb14154 100644 --- a/src/Simplex/Messaging/Agent/Stats.hs +++ b/src/Simplex/Messaging/Agent/Stats.hs @@ -111,26 +111,26 @@ newAgentSMPServerStats = do newAgentSMPServerStats' :: AgentSMPServerStatsData -> STM AgentSMPServerStats newAgentSMPServerStats' s = do sentDirect <- newTVar $ _sentDirect s - sentViaProxy <- newTVar $ _sentDirect s - sentDirectAttempts <- newTVar $ _sentDirect s - sentViaProxyAttempts <- newTVar $ _sentDirect s - sentAuthErrs <- newTVar $ _sentDirect s - sentQuotaErrs <- newTVar $ _sentDirect s - sentExpiredErrs <- newTVar $ _sentDirect s - sentOtherErrs <- newTVar $ _sentDirect s - -- sentDirectErrs <- newTVar $ _sentDirect s - -- sentProxyErrs <- newTVar $ _sentDirect s - recvMsgs <- newTVar $ _sentDirect s - recvDuplicates <- newTVar $ _sentDirect s - recvCryptoErrs <- newTVar $ _sentDirect s - recvErrs <- newTVar $ _sentDirect s - connCreated <- newTVar $ _sentDirect s - connSecured <- newTVar $ _sentDirect s - connCompleted <- newTVar $ _sentDirect s - connDeleted <- newTVar $ _sentDirect s - connSubscribed <- newTVar $ _sentDirect s - connSubAttempts <- newTVar $ _sentDirect s - connSubErrs <- newTVar $ _sentDirect s + sentViaProxy <- newTVar $ _sentViaProxy s + sentDirectAttempts <- newTVar $ _sentDirectAttempts s + sentViaProxyAttempts <- newTVar $ _sentViaProxyAttempts s + sentAuthErrs <- newTVar $ _sentAuthErrs s + sentQuotaErrs <- newTVar $ _sentQuotaErrs s + sentExpiredErrs <- newTVar $ _sentExpiredErrs s + sentOtherErrs <- newTVar $ _sentOtherErrs s + -- sentDirectErrs <- newTVar $ _sentDirectErrs s + -- sentProxyErrs <- newTVar $ _sentProxyErrs s + recvMsgs <- newTVar $ _recvMsgs s + recvDuplicates <- newTVar $ _recvDuplicates s + recvCryptoErrs <- newTVar $ _recvCryptoErrs s + recvErrs <- newTVar $ _recvErrs s + connCreated <- newTVar $ _connCreated s + connSecured <- newTVar $ _connSecured s + connCompleted <- newTVar $ _connCompleted s + connDeleted <- newTVar $ _connDeleted s + connSubscribed <- newTVar $ _connSubscribed s + connSubAttempts <- newTVar $ _connSubAttempts s + connSubErrs <- newTVar $ _connSubErrs s pure AgentSMPServerStats { sentDirect, @@ -159,26 +159,26 @@ newAgentSMPServerStats' s = do getAgentSMPServerStats :: AgentSMPServerStats -> STM AgentSMPServerStatsData getAgentSMPServerStats s = do _sentDirect <- readTVar $ sentDirect s - _sentViaProxy <- readTVar $ sentDirect s - _sentDirectAttempts <- readTVar $ sentDirect s - _sentViaProxyAttempts <- readTVar $ sentDirect s - _sentAuthErrs <- readTVar $ sentDirect s - _sentQuotaErrs <- readTVar $ sentDirect s - _sentExpiredErrs <- readTVar $ sentDirect s - _sentOtherErrs <- readTVar $ sentDirect s - -- _sentDirectErrs <- readTVar $ sentDirect s - -- _sentProxyErrs <- readTVar $ sentDirect s - _recvMsgs <- readTVar $ sentDirect s - _recvDuplicates <- readTVar $ sentDirect s - _recvCryptoErrs <- readTVar $ sentDirect s - _recvErrs <- readTVar $ sentDirect s - _connCreated <- readTVar $ sentDirect s - _connSecured <- readTVar $ sentDirect s - _connCompleted <- readTVar $ sentDirect s - _connDeleted <- readTVar $ sentDirect s - _connSubscribed <- readTVar $ sentDirect s - _connSubAttempts <- readTVar $ sentDirect s - _connSubErrs <- readTVar $ sentDirect s + _sentViaProxy <- readTVar $ sentViaProxy s + _sentDirectAttempts <- readTVar $ sentDirectAttempts s + _sentViaProxyAttempts <- readTVar $ sentViaProxyAttempts s + _sentAuthErrs <- readTVar $ sentAuthErrs s + _sentQuotaErrs <- readTVar $ sentQuotaErrs s + _sentExpiredErrs <- readTVar $ sentExpiredErrs s + _sentOtherErrs <- readTVar $ sentOtherErrs s + -- _sentDirectErrs <- readTVar $ sentDirectErrs s + -- _sentProxyErrs <- readTVar $ sentProxyErrs s + _recvMsgs <- readTVar $ recvMsgs s + _recvDuplicates <- readTVar $ recvDuplicates s + _recvCryptoErrs <- readTVar $ recvCryptoErrs s + _recvErrs <- readTVar $ recvErrs s + _connCreated <- readTVar $ connCreated s + _connSecured <- readTVar $ connSecured s + _connCompleted <- readTVar $ connCompleted s + _connDeleted <- readTVar $ connDeleted s + _connSubscribed <- readTVar $ connSubscribed s + _connSubAttempts <- readTVar $ connSubAttempts s + _connSubErrs <- readTVar $ connSubErrs s pure AgentSMPServerStatsData { _sentDirect, @@ -328,18 +328,18 @@ newAgentXFTPServerStats' s = do getAgentXFTPServerStats :: AgentXFTPServerStats -> STM AgentXFTPServerStatsData getAgentXFTPServerStats s = do _replUpload <- readTVar $ replUpload s - _replUploadAttempts <- readTVar $ replUpload s - _replUploadSuccesses <- readTVar $ replUpload s - _replUploadErr <- readTVar $ replUpload s - _replDownload <- readTVar $ replUpload s - _replDownloadAttempts <- readTVar $ replUpload s - _replDownloadSuccesses <- readTVar $ replUpload s - _replDownloadAuth <- readTVar $ replUpload s - _replDownloadErr <- readTVar $ replUpload s - _replDelete <- readTVar $ replUpload s - _replDeleteAttempts <- readTVar $ replUpload s - _replDeleteSuccesses <- readTVar $ replUpload s - _replDeleteErr <- readTVar $ replUpload s + _replUploadAttempts <- readTVar $ replUploadAttempts s + _replUploadSuccesses <- readTVar $ replUploadSuccesses s + _replUploadErr <- readTVar $ replUploadErr s + _replDownload <- readTVar $ replDownload s + _replDownloadAttempts <- readTVar $ replDownloadAttempts s + _replDownloadSuccesses <- readTVar $ replDownloadSuccesses s + _replDownloadAuth <- readTVar $ replDownloadAuth s + _replDownloadErr <- readTVar $ replDownloadErr s + _replDelete <- readTVar $ replDelete s + _replDeleteAttempts <- readTVar $ replDeleteAttempts s + _replDeleteSuccesses <- readTVar $ replDeleteSuccesses s + _replDeleteErr <- readTVar $ replDeleteErr s pure AgentXFTPServerStatsData { _replUpload,