mirror of
https://github.com/simplex-chat/simplexmq.git
synced 2026-09-16 17:03:35 +00:00
19 lines
282 B
Haskell
19 lines
282 B
Haskell
module Main where
|
|
|
|
import Env.STM
|
|
import Server (runSMPServer)
|
|
|
|
cfg :: Config
|
|
cfg =
|
|
Config
|
|
{ tcpPort = "5223",
|
|
tbqSize = 16,
|
|
queueIdBytes = 12,
|
|
msgIdBytes = 6
|
|
}
|
|
|
|
main :: IO ()
|
|
main = do
|
|
putStrLn $ "Listening on port " ++ tcpPort cfg
|
|
runSMPServer cfg
|