mirror of
https://github.com/simplex-chat/simplexmq.git
synced 2026-05-25 18:34:37 +00:00
Evgeny Poberezkin
28 lines
592 B
Haskell
28 lines
592 B
Haskell
{-# LANGUAGE DuplicateRecordFields #-}
|
|
|
|
module Main where
|
|
|
|
import Simplex.Messaging.Agent (runSMPAgent)
|
|
import Simplex.Messaging.Agent.Env.SQLite
|
|
import Simplex.Messaging.Agent.ServerClient
|
|
|
|
cfg :: AgentConfig
|
|
cfg =
|
|
AgentConfig
|
|
{ tcpPort = "5224",
|
|
tbqSize = 16,
|
|
connIdBytes = 12,
|
|
dbFile = "smp-agent.db",
|
|
smpTcpPort = "5223",
|
|
smpConfig =
|
|
ServerClientConfig
|
|
{ tbqSize = 16,
|
|
corrIdBytes = 4
|
|
}
|
|
}
|
|
|
|
main :: IO ()
|
|
main = do
|
|
putStrLn $ "SMP agent listening on port " ++ tcpPort (cfg :: AgentConfig)
|
|
runSMPAgent cfg
|