16 lines
408 B
Haskell
16 lines
408 B
Haskell
|
{-# 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
|
||
|
|
st <- getDirectoryStore directoryLog
|
||
|
|
simplexChatCore terminalChatConfig (mkChatOpts opts) Nothing $ directoryService st opts
|