git.iko.soy/project-m36
on fd05d50 help sign in
project-m36/src/lib/ProjectM36/Server/Config.hs
22 lines 1.2 kB history raw
1module ProjectM36.Server.Config where
2import ProjectM36.Client
4data ServerConfig = ServerConfig { persistenceStrategy :: PersistenceStrategy,
5 databaseName :: DatabaseName,
6 bindHost :: Hostname,
7 bindPort :: Port,
8 ghcPkgPaths :: [String], -- used for AtomFunction dynamic compilation
9 perRequestTimeout :: Int,
10 testMode :: Bool -- used exclusively for automated testing of the server, thus not accessible from the command line
11 }
12 deriving (Show)
14defaultServerConfig :: ServerConfig
15defaultServerConfig = ServerConfig { persistenceStrategy = NoPersistence,
16 databaseName = "base",
17 bindHost = "127.0.0.1",
18 bindPort = 6543,
19 ghcPkgPaths = [],
20 perRequestTimeout = 0,
21 testMode = False
22 }