terminal: change default servers (#633)

apps/simplex-bot-advanced/Main.hs

@@ -11,12 +11,12 @@ import Control.Concurrent.Async
 import Control.Concurrent.STM
 import Control.Monad.Reader
 import qualified Data.Text as T
-import Simplex.Chat
 import Simplex.Chat.Bot
 import Simplex.Chat.Controller
 import Simplex.Chat.Core
 import Simplex.Chat.Messages
 import Simplex.Chat.Options
+import Simplex.Chat.Terminal (terminalChatConfig)
 import Simplex.Chat.Types
 import System.Directory (getAppUserDataDirectory)
 import Text.Read
@@ -24,7 +24,7 @@ import Text.Read
 main :: IO ()
 main = do
   opts <- welcomeGetOpts
-  simplexChatCore defaultChatConfig opts Nothing mySquaringBot
+  simplexChatCore terminalChatConfig opts Nothing mySquaringBot
 
 welcomeGetOpts :: IO ChatOpts
 welcomeGetOpts = do

apps/simplex-bot/Main.hs

@@ -2,18 +2,18 @@
 
 module Main where
 
-import Simplex.Chat
 import Simplex.Chat.Bot
 import Simplex.Chat.Controller (versionNumber)
 import Simplex.Chat.Core
 import Simplex.Chat.Options
+import Simplex.Chat.Terminal (terminalChatConfig)
 import System.Directory (getAppUserDataDirectory)
 import Text.Read
 
 main :: IO ()
 main = do
   opts <- welcomeGetOpts
-  simplexChatCore defaultChatConfig opts Nothing $
+  simplexChatCore terminalChatConfig opts Nothing $
     chatBotRepl "Hello! I am a simple squaring bot - if you send me a number, I will calculate its square" $ \msg ->
       case readMaybe msg :: Maybe Integer of
         Just n -> msg <> " * " <> msg <> " = " <> show (n * n)

apps/simplex-chat/Main.hs

@@ -3,7 +3,6 @@
 module Main where
 
 import Control.Concurrent (threadDelay)
-import Simplex.Chat
 import Simplex.Chat.Controller (versionNumber)
 import Simplex.Chat.Core
 import Simplex.Chat.Options
@@ -20,8 +19,8 @@ main = do
     then do
       welcome opts
       t <- withTerminal pure
-      simplexChatTerminal defaultChatConfig opts t
-    else simplexChatCore defaultChatConfig opts Nothing $ \_ cc -> do
+      simplexChatTerminal terminalChatConfig opts t
+    else simplexChatCore terminalChatConfig opts Nothing $ \_ cc -> do
       r <- sendChatCmd cc chatCmd
       putStrLn $ serializeChatResponse r
       threadDelay $ chatCmdDelay opts * 1000000