core: change API to suspend agent (#752)

src/Simplex/Chat.hs

@@ -60,7 +60,6 @@ import qualified Simplex.Messaging.Crypto as C
 import Simplex.Messaging.Encoding
 import Simplex.Messaging.Encoding.String
 import Simplex.Messaging.Notifications.Client (NtfServer)
-import Simplex.Messaging.Notifications.Protocol (DeviceToken (..), PushProvider (..))
 import Simplex.Messaging.Parsers (base64P, parseAll)
 import Simplex.Messaging.Protocol (ErrorType (..), MsgBody, MsgFlags (..))
 import qualified Simplex.Messaging.Protocol as SMP
@@ -205,7 +204,8 @@ processChatCommand = \case
   APIStopChat -> do
     ask >>= stopChatController
     pure CRChatStopped
-  APISetAppPhase phase -> withAgent (`setAgentPhase` phase) $> CRCmdOk
+  APIActivateChat -> withAgent activateAgent $> CRCmdOk
+  APISuspendChat t -> withAgent (`suspendAgent` t) $> CRCmdOk
   ResubscribeAllConnections -> withUser (subscribeUserConnections resubscribeConnection) $> CRCmdOk
   SetFilesFolder filesFolder' -> do
     createDirectoryIfMissing True filesFolder'
@@ -1096,7 +1096,7 @@ processAgentMessage Nothing _ _ = throwChatError CENoActiveUser
 processAgentMessage (Just User {userId}) "" agentMessage = case agentMessage of
   DOWN srv conns -> serverEvent srv conns CRContactsDisconnected "disconnected"
   UP srv conns -> serverEvent srv conns CRContactsSubscribed "connected"
-  PHASE phase -> toView $ CRAppPhase phase
+  SUSPENDED -> toView CRChatSuspended
   _ -> pure ()
   where
     serverEvent srv@SMP.ProtocolServer {host, port} conns event str = do
@@ -2250,7 +2250,8 @@ chatCommandP =
     <|> "/_start subscribe=" *> (StartChat <$> ("on" $> True <|> "off" $> False))
     <|> "/_start" $> StartChat True
     <|> "/_stop" $> APIStopChat
-    <|> "/_app phase " *> (APISetAppPhase <$> strP)
+    <|> "/_app activate" $> APIActivateChat
+    <|> "/_app suspend " *> (APISuspendChat <$> A.decimal)
     <|> "/_resubscribe all" $> ResubscribeAllConnections
     <|> "/_files_folder " *> (SetFilesFolder <$> filePath)
     <|> "/_db export " *> (APIExportArchive <$> jsonP)

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]