mirror of
https://github.com/simplex-chat/simplex-chat.git
synced 2025-03-14 09:45:42 +00:00
e05a35e26e
* postgres: modules structure (#5401) * postgres: schema, field conversions (#5430) * postgres: rework chat list pagination query (#5441) * prepare cabal for merge * restore cabal changes * simplexmq * postgres: implementation wip (tests don't pass) (#5481) * restore ios file * postgres: implementation - tests pass (#5487) * refactor DB options * refactor * line * style * style * refactor * $ * update simplexmq * constraintError * handleDBErrors * fix * remove param * Ok * case * case * case * comment --------- Co-authored-by: Evgeny Poberezkin <evgeny@poberezkin.com>
31 lines
987 B
Haskell
31 lines
987 B
Haskell
{-# LANGUAGE NamedFieldPuns #-}
|
|
|
|
module Main where
|
|
|
|
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 terminalChatConfig opts $
|
|
chatBotRepl welcomeMessage $ \_contact msg ->
|
|
pure $ case readMaybe msg :: Maybe Integer of
|
|
Just n -> msg <> " * " <> msg <> " = " <> show (n * n)
|
|
_ -> "\"" <> msg <> "\" is not a number"
|
|
|
|
welcomeMessage :: String
|
|
welcomeMessage = "Hello! I am a simple squaring bot.\nIf you send me a number, I will calculate its square"
|
|
|
|
welcomeGetOpts :: IO ChatOpts
|
|
welcomeGetOpts = do
|
|
appDir <- getAppUserDataDirectory "simplex"
|
|
opts@ChatOpts {coreOptions} <- getChatOpts appDir "simplex_bot"
|
|
putStrLn $ "SimpleX Chat Bot v" ++ versionNumber
|
|
printDbOpts coreOptions
|
|
pure opts
|