diff --git a/src/Simplex/Chat.hs b/src/Simplex/Chat.hs index 539ad003ba..0dda1d61d1 100644 --- a/src/Simplex/Chat.hs +++ b/src/Simplex/Chat.hs @@ -2268,6 +2268,7 @@ processChatCommand' vr = \case servers <- map (\ServerCfg {server} -> server) <$> withStore' (`getProtocolServers` users) let srvs = if null servers then L.toList defServers else servers pure $ map protoServer srvs + ResetAgentServersStats -> lift (withAgent' resetAgentServersStats) >> ok_ GetAgentWorkers -> lift $ CRAgentWorkersSummary <$> withAgent' getAgentWorkersSummary GetAgentWorkersDetails -> lift $ CRAgentWorkersDetails <$> withAgent' getAgentWorkersDetails GetAgentStats -> lift $ CRAgentStats . map stat <$> withAgent' getAgentStats @@ -7627,6 +7628,7 @@ chatCommandP = "/debug locks" $> DebugLocks, "/debug event " *> (DebugEvent <$> jsonP), "/get servers summary " *> (GetAgentServersSummary <$> A.decimal), + "/reset servers stats" $> ResetAgentServersStats, "/get stats" $> GetAgentStats, "/reset stats" $> ResetAgentStats, "/get subs" $> GetAgentSubs, diff --git a/src/Simplex/Chat/Controller.hs b/src/Simplex/Chat/Controller.hs index 4404360c2a..c6cbd31e69 100644 --- a/src/Simplex/Chat/Controller.hs +++ b/src/Simplex/Chat/Controller.hs @@ -507,6 +507,7 @@ data ChatCommand | DebugLocks | DebugEvent ChatResponse | GetAgentServersSummary UserId + | ResetAgentServersStats | GetAgentStats | ResetAgentStats | GetAgentSubs