core: process ERR response to async command (#1061)

src/Simplex/Chat/Store.hs

@@ -179,6 +179,7 @@ module Simplex.Chat.Store
     getCalls,
     createCommand,
     setCommandConnId,
+    deleteCommand,
     updateCommandStatus,
     getCommandDataByCorrId,
     setConnConnReqInv,
@@ -3919,6 +3920,10 @@ setCommandConnId db User {userId} cmdId connId = do
     |]
     (connId, updatedAt, userId, cmdId)
 
+deleteCommand :: DB.Connection -> User -> CommandId -> IO ()
+deleteCommand db User {userId} cmdId =
+  DB.execute db "DELETE FROM commands WHERE user_id = ? AND command_id = ?" (userId, cmdId)
+
 updateCommandStatus :: DB.Connection -> User -> CommandId -> CommandStatus -> IO ()
 updateCommandStatus db User {userId} cmdId status = do
   updatedAt <- getCurrentTime