establish connection using user profiles (#69)

* establish connection using user profiles (TODO: delete contact and send message)

* delete contact and send message with the updated schema

* comment

* refactor, remove old code
This commit is contained in:
Evgeny Poberezkin 2021-07-05 19:54:44 +01:00 committed by GitHub
parent 2f604d91ba
commit 58889be83d
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
9 changed files with 400 additions and 192 deletions

View file

@ -42,10 +42,11 @@ main :: IO ()
main = do
ChatOpts {dbFile, smpServers} <- welcomeGetOpts
st <- createStore (dbFile <> ".chat.db") 4
user <- getCreateActiveUser st
ct <- newChatTerminal
a <- getSMPAgentClient cfg {dbFile = dbFile <> ".agent.db", smpServers}
notify <- initializeNotifications
cc <- atomically $ newChatController a ct st notify $ tbqSize cfg
cc <- atomically $ newChatController a ct st user notify $ tbqSize cfg
-- setLogLevel LogInfo -- LogError
-- withGlobalLogging logCfg $ do
runReaderT simplexChat cc