core: allow starting chat without making SMP subscriptions (to use GET in NSE) (#745)

src/Simplex/Chat/Controller.hs

@@ -99,7 +99,7 @@ instance ToJSON HelpSection where
 data ChatCommand
   = ShowActiveUser
   | CreateActiveUser Profile
-  | StartChat
+  | StartChat {subscribeConnections :: Bool}
   | APIStopChat
   | APISetAppPhase AgentPhase
   | ResubscribeAllConnections

src/Simplex/Chat/Core.hs

@@ -33,7 +33,7 @@ runSimplexChat ChatOpts {maintenance} u cc chat
   | maintenance = wait =<< async (chat u cc)
   | otherwise = do
     a1 <- async $ chat u cc
-    a2 <- runReaderT (startChatController u) cc
+    a2 <- runReaderT (startChatController u True) cc
     waitEither_ a1 a2
 
 sendChatCmd :: ChatController -> String -> IO ChatResponse