mirror of
https://github.com/simplex-chat/simplex-chat.git
synced 2026-03-30 22:55:48 +00:00
fa313caa82
* terminal: refactor chat core used in terminal app and in bot examples * fix tests * refactor
29 lines
948 B
Haskell
29 lines
948 B
Haskell
{-# LANGUAGE NamedFieldPuns #-}
|
|
|
|
module Main where
|
|
|
|
import Simplex.Chat
|
|
import Simplex.Chat.Bot
|
|
import Simplex.Chat.Controller (versionNumber)
|
|
import Simplex.Chat.Core
|
|
import Simplex.Chat.Options
|
|
import System.Directory (getAppUserDataDirectory)
|
|
import Text.Read
|
|
|
|
main :: IO ()
|
|
main = do
|
|
opts <- welcomeGetOpts
|
|
simplexChatCore defaultChatConfig 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)
|
|
_ -> "\"" <> msg <> "\" is not a number"
|
|
|
|
welcomeGetOpts :: IO ChatOpts
|
|
welcomeGetOpts = do
|
|
appDir <- getAppUserDataDirectory "simplex"
|
|
opts@ChatOpts {dbFilePrefix} <- getChatOpts appDir "simplex_bot"
|
|
putStrLn $ "SimpleX Chat Bot v" ++ versionNumber
|
|
putStrLn $ "db: " <> dbFilePrefix <> "_chat.db, " <> dbFilePrefix <> "_agent.db"
|
|
pure opts
|