From e328ae5d060645a8ef090b1b3d88bc20a5902e45 Mon Sep 17 00:00:00 2001
From: JRoberts <8711996+jr-simplex@users.noreply.github.com>
Date: Mon, 12 Sep 2022 21:15:32 +0400
Subject: [PATCH] closeAgentClient async commands clean up (#523)

---
 src/Simplex/Messaging/Agent/Client.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/Simplex/Messaging/Agent/Client.hs b/src/Simplex/Messaging/Agent/Client.hs
index 4d02a204e..c540c30b2 100644
--- a/src/Simplex/Messaging/Agent/Client.hs
+++ b/src/Simplex/Messaging/Agent/Client.hs
@@ -404,11 +404,14 @@ closeAgentClient c = liftIO $ do
   cancelActions $ reconnections c
   cancelActions $ asyncClients c
   cancelActions $ smpQueueMsgDeliveries c
+  cancelActions $ asyncCmdProcesses c
   atomically . TM2.clear $ activeSubs c
   atomically . TM2.clear $ pendingSubs c
   clear subscrConns
   clear connMsgsQueued
   clear smpQueueMsgQueues
+  clear connCmdsQueued
+  clear asyncCmdQueues
   clear getMsgLocks
   where
     clear :: Monoid m => (AgentClient -> TVar m) -> IO ()