server: control port (#804)

* server: control port

* do not remove messages when saving via control port

* remove unused record fields

* fix tests
This commit is contained in:
Evgeny Poberezkin authored and GitHub committed 2023-07-15 13:33:00 +01:00
1 parent d989d11478
commit 4fae7dcaee
8 files changed
+126 -14

No files matched your search

+1 -1
View File
@@ -94,7 +94,7 @@ setServerStats s d = do
writeTVar (msgRecvNtf s) $! _msgRecvNtf d
setPeriodStats (activeQueuesNtf s) (_activeQueuesNtf d)
writeTVar (qCount s) $! _qCount d
writeTVar (msgCount s) $! _qCount d
writeTVar (msgCount s) $! _msgCount d
instance StrEncoding ServerStatsData where
strEncode ServerStatsData {_fromTime, _qCreated, _qSecured, _qDeleted, _msgSent, _msgRecv, _msgSentNtf, _msgRecvNtf, _activeQueues, _activeQueuesNtf} =