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