mirror of
https://github.com/simplex-chat/simplexmq.git
synced 2026-04-14 07:26:26 +00:00
19 lines
337 B
Haskell
19 lines
337 B
Haskell
module Main where
|
|
|
|
import Simplex.Messaging.Server (runSMPServer)
|
|
import Simplex.Messaging.Server.Env.STM
|
|
|
|
cfg :: ServerConfig
|
|
cfg =
|
|
ServerConfig
|
|
{ tcpPort = "5223",
|
|
tbqSize = 16,
|
|
queueIdBytes = 12,
|
|
msgIdBytes = 6
|
|
}
|
|
|
|
main :: IO ()
|
|
main = do
|
|
putStrLn $ "Listening on port " ++ tcpPort cfg
|
|
runSMPServer cfg
|