terminal: change default servers (#633)

This commit is contained in:
Evgeny Poberezkin authored and GitHub committed 2022-05-11 19:52:08 +04:00
1 parent 0262ab53bf
commit 885a4ea972
6 files changed
+44 -22

No files matched your search

+2 -2
View File
@@ -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)