SimpleX-Chat/apps/simplex-directory-service/Main.hs

{-# 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 <- restoreDirectoryStore directoryLog
  simplexChatCore terminalChatConfig (mkChatOpts opts) $ directoryService st opts