core: delete connections asynchronously (#1151)

src/Simplex/Chat/Types.hs

@@ -957,6 +957,7 @@ data CommandFunction
   | CFJoinConn
   | CFAllowConn
   | CFAckMessage
+  | CFDeleteConn
   deriving (Eq, Show, Generic)
 
 instance FromField CommandFunction where fromField = fromTextField_ textDecode
@@ -969,12 +970,14 @@ instance TextEncoding CommandFunction where
     "join_conn" -> Just CFJoinConn
     "allow_conn" -> Just CFAllowConn
     "ack_message" -> Just CFAckMessage
+    "delete_conn" -> Just CFDeleteConn
     _ -> Nothing
   textEncode = \case
     CFCreateConn -> "create_conn"
     CFJoinConn -> "join_conn"
     CFAllowConn -> "allow_conn"
     CFAckMessage -> "ack_message"
+    CFDeleteConn -> "delete_conn"
 
 commandExpectedResponse :: CommandFunction -> ACommandTag 'Agent
 commandExpectedResponse = \case
@@ -982,6 +985,7 @@ commandExpectedResponse = \case
   CFJoinConn -> OK_
   CFAllowConn -> OK_
   CFAckMessage -> OK_
+  CFDeleteConn -> OK_
 
 data CommandData = CommandData
   { cmdId :: CommandId,