move Main to apps/smp-server

This commit is contained in:
Evgeny Poberezkin committed 2020-10-21 19:04:15 +01:00
1 parent 3d322f5fcf
commit 480ff86907
2 files changed
+13 -11

No files matched your search

-18
View File
@@ -1,18 +0,0 @@
module Main where
import Env.STM
import Server (runSMPServer)
cfg :: Config
cfg =
Config
{ tcpPort = "5223",
queueSize = 16,
connIdBytes = 12,
msgIdBytes = 6
}
main :: IO ()
main = do
putStrLn $ "Listening on port " ++ tcpPort cfg
runSMPServer cfg