rename Config to ServerConfig

This commit is contained in:
Evgeny Poberezkin
2020-12-25 14:21:28 +00:00
parent 6249bf749e
commit 2ed24e683e
4 changed files with 9 additions and 9 deletions
+2 -2
View File
@@ -35,8 +35,8 @@ import UnliftIO.Exception
import UnliftIO.IO
import UnliftIO.STM
runSMPServer :: (MonadRandom m, MonadUnliftIO m) => Config -> m ()
runSMPServer cfg@Config {tcpPort} = do
runSMPServer :: (MonadRandom m, MonadUnliftIO m) => ServerConfig -> m ()
runSMPServer cfg@ServerConfig {tcpPort} = do
env <- newEnv cfg
runReaderT smpServer env
where