2023-08-01 14:54:51 -05:00
|
|
|
{-# LANGUAGE NamedFieldPuns #-}
|
|
|
|
|
|
|
|
|
|
module Main where
|
|
|
|
|
|
|
|
|
|
import Directory.Options
|
|
|
|
|
import Directory.Service
|
|
|
|
|
import Directory.Store
|
|
|
|
|
import Simplex.Chat.Core
|
|
|
|
|
import Simplex.Chat.Terminal (terminalChatConfig)
|
|
|
|
|
|
|
|
|
|
main :: IO ()
|
|
|
|
|
main = do
|
|
|
|
|
opts@DirectoryOpts {directoryLog} <- welcomeGetOpts
|
2023-08-07 02:25:15 -05:00
|
|
|
st <- restoreDirectoryStore directoryLog
|
2023-10-11 03:50:11 -05:00
|
|
|
simplexChatCore terminalChatConfig (mkChatOpts opts) $ directoryService st opts
|
