mirror of
https://github.com/simplex-chat/simplex-chat.git
synced 2025-06-28 20:29:53 +00:00
408a30c25b
* simplify mobile API to have single controller * update chat response in swift * add async to stack
44 lines
1.5 KiB
Haskell
44 lines
1.5 KiB
Haskell
{-# LANGUAGE FlexibleContexts #-}
|
|
|
|
module Simplex.Chat.Terminal where
|
|
|
|
import Control.Logger.Simple
|
|
import Control.Monad.Except
|
|
import Control.Monad.Reader
|
|
import Simplex.Chat
|
|
import Simplex.Chat.Controller
|
|
import Simplex.Chat.Help (chatWelcome)
|
|
import Simplex.Chat.Options
|
|
import Simplex.Chat.Store
|
|
import Simplex.Chat.Terminal.Input
|
|
import Simplex.Chat.Terminal.Notification
|
|
import Simplex.Chat.Terminal.Output
|
|
import Simplex.Chat.Types (User)
|
|
import Simplex.Messaging.Util (raceAny_)
|
|
import UnliftIO (async, waitEither_)
|
|
|
|
simplexChat :: WithTerminal t => ChatConfig -> ChatOpts -> t -> IO ()
|
|
simplexChat cfg opts t
|
|
| logging opts = do
|
|
setLogLevel LogInfo -- LogError
|
|
withGlobalLogging logCfg initRun
|
|
| otherwise = initRun
|
|
where
|
|
initRun = do
|
|
sendNotification' <- initializeNotifications
|
|
let f = chatStoreFile $ dbFilePrefix opts
|
|
st <- createStore f $ dbPoolSize cfg
|
|
u <- getCreateActiveUser st
|
|
ct <- newChatTerminal t
|
|
cc <- newChatController st (Just u) cfg opts sendNotification'
|
|
runSimplexChat u ct cc
|
|
|
|
runSimplexChat :: User -> ChatTerminal -> ChatController -> IO ()
|
|
runSimplexChat u ct cc = do
|
|
when (firstTime cc) . printToTerminal ct $ chatWelcome u
|
|
a1 <- async $ runChatTerminal ct cc
|
|
a2 <- runReaderT (startChatController u) cc
|
|
waitEither_ a1 a2
|
|
|
|
runChatTerminal :: ChatTerminal -> ChatController -> IO ()
|
|
runChatTerminal ct cc = raceAny_ [runTerminalInput ct cc, runTerminalOutput ct cc, runInputLoop ct cc]
|