core: change API to suspend agent (#752)

src/Simplex/Chat/Controller.hs

@@ -101,7 +101,8 @@ data ChatCommand
   | CreateActiveUser Profile
   | StartChat {subscribeConnections :: Bool}
   | APIStopChat
-  | APISetAppPhase AgentPhase
+  | APIActivateChat
+  | APISuspendChat {suspendTimeout :: Int}
   | ResubscribeAllConnections
   | SetFilesFolder FilePath
   | APIExportArchive ArchiveConfig
@@ -185,7 +186,7 @@ data ChatResponse
   | CRChatStarted
   | CRChatRunning
   | CRChatStopped
-  | CRAppPhase {appPhase :: AgentPhase}
+  | CRChatSuspended
   | CRApiChats {chats :: [AChat]}
   | CRApiChat {chat :: AChat}
   | CRLastMessages {chatItems :: [AChatItem]}

src/Simplex/Chat/View.hs

@@ -55,7 +55,7 @@ responseToView testView = \case
   CRChatStarted -> ["chat started"]
   CRChatRunning -> ["chat is running"]
   CRChatStopped -> ["chat stopped"]
-  CRAppPhase p -> ["app phase " <> sShow p]
+  CRChatSuspended -> ["chat suspended"]
   CRApiChats chats -> if testView then testViewChats chats else [plain . bshow $ J.encode chats]
   CRApiChat chat -> if testView then testViewChat chat else [plain . bshow $ J.encode chat]
   CRApiParsedMarkdown ft -> [plain . bshow $ J.encode ft]